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ABSTRACT 


This  thesis  presents  a  model  of  heat  transfer  phenomenon 
in  thrust  vector  control  systems,  us'ng  the  FHOENICS 
computer  code. 

To  simplify  the  problem  of  heat  transfer  to  solid 
objects  In  rocket  exhaust,  simple  wedge  bodies  have  been 
examined  In  supersonic  gas  flow  for  both  turbulent  and 
laminar  flow  cases. 

The  study  gives  an  estimate  of  skin  friction  coeffi¬ 
cient,  surface  heat  flux,  heat  transfer  coefficient,  Stanton 
number  distributions,  and  coo^uter  run  times. 
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I.  INTRODUfCTIQM 


The  use  of  external  aerodynamics  in  the  control  of 
rocket  trajectory,  necessiates  an  active  control  system 
which  generates  a  force  on  external  surfaces  to  accomplish 
specified  trajectory  changes,  and  to  balance  external 
disturbances  such  as  wind  and  pressure  forces.  This  type  of 
trajectory  control  is  most  effective  at  high  velocities  and 
low  altitudes.  At  high  altitudes  or  low  velocities  the 
effectiveness  of  external  surfaces  for  missile  maneuvering 
or  trajectory  control  decreases  markedly.  Under  these  oper¬ 
ating  conditions  other  control  mechanisms  must  be  used  such 
as  jetvanes  and  jet  tabs.  Adding  a  jet  vane  or  a  jet  tab 
into  nozzle  exit,  a  capability  to  change  and  control  tlie 
direction  of  thrust  can  be  obtained.  The  basic  principle  of 
thrust  vector  control  by  using  vane  has  been  shown  in 
Figure  1. 1 

Jet  vanes  are  a  preferable  means  of  thrust  vector 
control,  provided  the  following  requirements  can  be  met: 
simplicity  of  design;  minimum  weight;  minimum  material 
erosion  for  maintenance  of  lift  effectiveness;  minimum 
thrust  loss  or  drag;  adequate  load  carrying  ability  for  ttie 
duration  of  firing;  readily  produceble;  low  cost. 

The  heat  transfer  modelling  of  thrust  vector  control 
vane  requires  a  boundary  layer  analysis.  Following  Prandtl, 
the  classical  method  of  solving  viscous  boundary  layer  type 
problems  first  calculates  a  streamwise  pressure  distribution 
from  purely  invlscid  considerations  and  then  calculates  the 
boundary  layer  development  under  the  influence  of  this 
inviscid  pressure  distribution.  No  attempt  is  made  to 
correct  the  inviscid  pressure  calculation  for  viscous 
effects  originating  in  boundary  layer  region.  Obviously, 
such  a  two  step  procedure  can  be  valid  only  if  the  pressure 
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distribution  calculated  Ignoring  viscous  effects  is  a 
sufficiently  good  approximation  to  the  pressure  distribution 
which  actually  occurs.  In  many  cases  of  practical  interest, 
the  inviscid  pressure  distribution  is  an  excellent  approxi¬ 
mation  to  physical  reality  and  in  these  cases  the  classical 
two  step  procedure  is  valid. 

The  rapid  development  of  both  numerical  techniques  and 
computer  capability  now  have  made  it  practical  to  apply 
Navier-Stokes  calculation  procedures  to  the  boundary  layer 
problem.  Since  the  Navier-Stokes  equations  represent  the 
exact  equations  of  motion,  they  contain  no  approximations 
other  than  those  made  in  connection  with  turbulence 
modeling.  For  example  the  assumption  of  constant  pressure  at 
any  stream  wise  station  which  is  Inherent  in  most  boundary 
layer  procedures  and  which  may  be  in  serious  error  in  super¬ 
sonic  flow  is  relieved  in  the  Navier-Stokes  approach. 
Further  more,  '  the  approximation  of  convective  terms  in  the 
separated  flow  regions  which  is  necessary  for  numerical 
stability  in  boundary  layer  calculations  is  not  required  in 
the  Navier-Stokes  calculations.  . 

The  advantage  of  the  Navier-Stokes  numerical  solutions 
must  be  balanced  against  certain  disadvantages  such  as  code 
complexity,  code  run  time  and  code  storage  requirements.  A 
consideration  of  both  the  advantages  and  disadvantages  of 
Navier-Stokes  numerical  solutions  indicate  that  potentially 
Increased  accuracy  of  this  approach  may  well  balance  out  the 
increased  requirements  in  computer  storage  and  run  time. 

Recently  numerical  solutions  of  the  Navier-Stokes  equa¬ 
tions  by  a  variety  of  authors  Including  Baldwin  and 
Naccormak  (Ref.  1),  and  Shank,  Hankey  and  Law  (Ref.  2) ,  have 
compared  predictions  for  a  series  of  incident  shock  wave 
bouiidary  layer  interactions  witli  experimental  data.  Good 
agreement  was  obtained  between  the  calculations  and 
experiment. 
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The  present  work  addresses  the  heat  transfer  modelling 
of  thrust  vector  control  systems.  In  this  effort  the 
Navier-Stokes  approach  is  applied  by  using  a  computer  code 
which  is  capable  of  simulating  a  large  number  of  fluid  flow, 
heat  transfer  and  chemical  reaction  processes  which  arise  in 
industry  and  elsewhere.  The  name  of  this  code  is  PHOEMICS. 
PHOENICS  is  an  acronym  standing  for:  'Parabolic,  Hyperbolic 
Or  Elliptic  Numerical  Integration  Code  Series'.  The  name 
comes  from  the  fact  that  the  differential  equations  of  fluid 
flow  etc.  arise  in  forms  classified  by  mathematicians  as 
parabolic,  hyperbolic  or  elliptic;  and  PHOENICS  solves  these 
stations,  whatever  their  form. 

Built  into  PHOENICS  are  the  major  conservation  laws  of 
physics  (mass,  momentum,  and  energy)  applied  to  a  large 
number  of  contiguous  subdomains  some  times  called  'cells', 
into  which  the  domain  of  study  is  artificially  divided.  The 
number  of  cells  can  be  few  or  many  according  to  the  require¬ 
ments  of  the  problem.  Because  of  the  numerical  stability  tlie 
restriction  on  cell  refinement,  can  become  particularly 
burdensome  in  the  calculation  of  a  turbulent  boundary  layer 
where  a  very  fine  mesh  near  the  wall  may  be  required. 

When  supplied  with  appropriate  information  concerning: 
the  physical  properties  of  the  materials  ;  the  geometrical 
and  other  constraints;  the  inlet  and/or  initial  conditions; 
PHOENICS  computes  the  corresponding  solutions  to  the  rele¬ 
vant  differential  equations,  expressing  them  as  tables -of 
numbers  describing  the  field  of  velocity,  temperature, 
concentration  etc. 

Detailed  information  about  PHOENICS  is  given  in 
(Ref.  3] , 
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II.  THEORETICAL  BACKROUND 


A.  A  BRIEF  DISCUSSION  ON  NAVIER-STOKES  APPROACH 

Rapid  advances  in  both  numerical  analysis  and  computer 
techonology  make  Navier-Stokes  procedures  a  possible  alter¬ 
native  to  boundary  layer  procedures  which  are  necessary  for 
heat  transfer  modelling  of  thrust  vector  control  systems. 
Solutions  based  upon  the  Navier-Stokes  equations  need  not 
make  an  arbitrary  division  between  viscous  and  inviscid 
portions  of  flow  field.  In  addition,  Navier-Stokes  proce¬ 
dures  solve  a  full  transverse  momentum  equation  and  need  not 
make  any  approximation  to  the  convection  terms  in  separated 
flow  regions.  These  considerations  indicate  that  even  if  a 
Navier-Stokes  procedure  requires  much  computer  resources 
(storage  and  run  time)  its  potentially  increased  accuracy 
may  make  it  an  attractive  alternative. 

1.  Governing  Equati<?ng  . 

In  this  effort  to  obtain  governing  equations,  one 
phase  flow  and  negligible  source  term  contributions  have 
been  assumed.  Under  these  assumptions  the  basic  equations 
in.  (Ref.  3]  ,  reduce  to  the  following; 

CONSERVATION  OF  MASS 

s  -  V.  (}»  '?)  (eqn  2. 1) 

CONSERVATION  OF  MOMENTUM 

(eqn  2.2) 

>  +  V.  (p  N?  ♦  -  B  vP 
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Where  .0's  are  the  v,  w  velocity  components  for  y  and  z 
directions/  and  the  velocity  vector  is; 


CONSERVATION  OF  ENERGY 


V.  h - vh>  «  gB  (eqn  2.3) 


h  *  C 

P 


T 

o 


Where  h  is  the  stagnation  enthalpy  of  the  gas  emd  is  the 
stagnation  temperature. 

In  the  case  of  laminar  flow  the  governing  equations 
(2.1)/  (2.2)/  (2.3)  a.m  sufficient  to  determine  a  solution 
when  proper  boundary  conditions  are  applied. 

However  in  turbulent  flow  it  is  necessary  to  hypoth¬ 
esize  a  turbulent  model  relating  the  turbulent  viscosity  to 
the  other  problem  Variables. 

2.  xUfi  la'rtaaflttfc  Nad&l 

The  Model  used  in  this  effort  is  k/C  model/  which  is 
used  in  Phoenlcs  [ Ref.  3] /  where  k  is  turbulent  kinetic 
energy  and  C  is  the  rate  of  dissipation  per  unit  volume. 

To  obtain  turbulent  flow  solution  following  tvrbu- 
lent  model  equations  have  been  used  by  PHOENICS. 


a.  iU  ,  . 


(eqn  2.  4) 
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-Ef-  »  ---  ^  (C,G.  -  C„£>  2.5) 

Dt  d^i  9^  i  It  1  It  2® 


Where 


dUj  i 


(egn  2.6) 


.  .^2.:il 


*’lam  '*1  '‘lam  g 


(egn  2.7) 


where  the '  conatante  C| «  ,  <4  « ^  automatically 

provided  in  FHOENICS. 

3.  ikid  6fgasE.ajfci,oa  aa^  Ilsfi  J^ia  liisn  tfaiiaim  gxid 


The  accuracy  of  solutions  which  are  computed  with  a 
given  number  of  grid  points  often  can  be  improved  by  using  a 
nonuniform  grid  spacing  to  ensure  a  finer  mesh  where  the 
solution  varies  rapidly.  In  the  Interaction  flow  field 
large  gradients  are  present  near  the  wall  and  consequently 
fine  grid  resolution  is  desired  in  this  region. 

Within  each  cell  is  a  "typical  point  ( called  a  grid 
node  ) "  for  which  the  fluid  property  values  are  regarded  as 
representative  of  the  whole  cell. 

Discretisation*  interpolation*  and  integration  of 
these  equations  leads  to  finite  domain  equations  '^EOE's" 
having  the  form: 
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Where  siabscripts  have  the  meaning;  P,  typical  point  (i. e./ 
node)  within  cell,  W,  north  neighbour  node,  S,  south 
neighbour  node,  E,  east  neighbour  node,  W,  west  neighbour 
node,  H,  high  neighbour  node,  L,  low  neighbour  node,  T,  grid 
node  at  earlier  time,  etc  are  coefficients,  and  b  is 
a  representation  of  the  source  of  0  for  the  cell. 


Figure  2. 1  Use  of  Grids. 
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III.  IISS  2£  m  mSL 


In  this  effort  the  typical  TVC  vane  as  shown  in 
Figure  3. 1  is  approximated  by  the  wedge  geometry  shown  in 
Figure  3.2  This  geometry  consists  of  two  sections.  First 
section  has  an  inclination  of  4  degrees  with  respect  to 
symetry  axis  and  the  second  section  is  the  flat  part  which 
has  3. 2  milimeter  length.  The  total  length  and  the  thickness 
of  the  vane  are  95. 2  and  6. 4  millmeters. 

A.  PROPERTIES 

For  both  laminar  and  turbulent  flow  cases  the  proper¬ 
ties  were  given  as  follows: 

6 

Stagnation  pressure  (Po)=55*10Pa 
Stagnation  temperature  (To)=555.55‘’k 
Gas  con3tants2S7  Joule/kg.^K 
Specific  heat  ratlo^l.  35 

Constant  pressure  specific  heat  (Cp)6skR/(k-l)  Joule/kg.  K 
Density  »  ■  «  ( — B — -Ua« 

where  subscript  o  represents  stagnation  values.  (Except 
across  the  oblique  shock,  this  Isentropic  assumption  is  true 
in  the  whole  flow  field. ) 

Viscosity  u  “  0.1716  *  )0.666  ^  ^  ^2 

where  T  is  static  temperature,  in  ^K. 

In  addition  to  properties  above,  for  the  turbulent  flow 
case  an  effective  viscosity  is  used. 

C-  f  (eqn  3. 1) 

e  Hem 
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B.  INITIAL  FIELDS 

Necessary  values  to  initialize  the  fields  for  both 
laminar  and  turbulent  caseS/  assuming  isentropic  flow  were 
calculated  as  follows: 

Mach  number  Ms3.2 


Density 


static  temperature 


T 

^  ’  <  1  > 

Static  pressure 
p 

k  -  1  2 

<  I  ♦  M"*  > 

2 

Sonic  velocity 
c  -  (  k  R  T  )  ^ 


(egn  3.2) 


(eqn  3.3) 


(eqn  3.4) 


(eqn  3.  5) 


Velocity  in  z  direction 

M  »  c  H 


(eqn  3.  6) 
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In  addition  to  the  quantities  above  for  the  turbulent 
flow  case  turbulent  kinetic  energy  terms  and  dissipation 
terms  were  specified  as  follows: 

Turbulent  kinetic  energy 

k  ■  0.01  w*  Jpul  e  3.7) 


Dissipation  term 

Joule  (eqn3.8) 

“kg” 


< 


0.16  k 


1.5 

■2”qh' 


<  where  GH  is  the  thickness  of  the  TVC  vane. 

C.  BOUNDARY  CONDITIONS 

1.  gjgadauCY  .Candltigna  ^  ypatnaam  juid  I>Q.wng.tr.8,9in 

For  laminar  flow  at  the  low  side  of  the  computa¬ 
tional  domain,  mass  flux,  velocity  in  the  flow  direction, 
and  enthalpy  were  specified. 

For  the  turbulent  flow  problem,  in  addition  to  the 
boundary  conditions  above  the  tufbulent  kinetic  energy  and 
dissipation  terms  were  specified  at  the  low  and  high  side 
boundaries. 

2.  B.omidac,y  ■Coadi.ti.ona  sm  Uaii 

At  the  wall,  normal  and  tangential  velocities  were 
set  to  zero.  Enthalpy  at  the  wall  was  given  by  using  a  wall 
function.  Details  of  the  wall  functions  will  be  given  in  the 
next  section. 

Using  a  wall  function  the  heat  transfer  rate  is 
evaluated  from  the  Chllton-Colburn  form  of  Reynolds  analogy, 
in  which  the  Stanton  number  (St)  is  related  to  the  friction 
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coefficient  (C^>  as  follow: 


St 


(eqn  3.9) 


where  Fr  is  the  laminar  Frandtl  niunber.  C^is  related  to  the 
wall  shear  stress  and  the  velocity  paralel  to  the  wall 

(w)  as  follows; 

- - (eqn  3.10) 

f 


(eqn  3. 11) 


where  ^  is  the  distance  from  the  wall  to  the  center  of 
the  first  cell. 


The  heat  transfer  rate  per  unit  area  at  the  wall  (Q) 
is  then  deduced  from 


o"-  St  f  w  (  hp  -  ) 

where  hp  is  entalpy  at  the  grid  node  and,  h^ 
corresponding  to  the  prescribed  wall  temperature 


(eqn  3. 12). 
is  entlialpy 


( eqn  3. 13) 

where  Cp  is  constant  pressure  specific  heat  and  is  the 
wall  temperature 

Xn  the  analysis  of  the  laminar  flow  case,  Instead  of 
activating  the  wall  function,  the  velocity  at  the  wall  has 
been  given  as  zero  because  of .  the  no  slip  condition  and  the 
enthalpy  at  the  wall  has  been  given. 


19 


D.  WALL  mCTION 

The  wall  problem  in  the  numerical  computation  of  flows, 
especially  in  turbulent  flow,  is  an  old  one  and  most  authors 
have  adopted  similar  techniques.  In  effect  they  "bridge 
over"  the  region  very  close  the  wall,  by  introducing  special 
functions  which  are  called  wall  *  functions.  These  are  often 
empirical  in  origin.  Accounts  may  be  found  in  the  books  by 
Gosman  Et  A1  (1969)  and  Spalding  (1975) 

The  problem  arises  as  follows.  Turbulence  dies  out,  . 
close  to  the  wall,  because  no  slip  condition  and  the  rlgi- 
tidy  of  the  wall  ^ake  all  the  velocity  components  fall  to 
zero.  The  consequence  is  that  the  effective  viscosity  and 
other  transport  properties,  fall  there  to  their  laminar 
values  and  the  result  is  a  rapid  variation  with  distance 
from  the  wall  both  of  the  JSt'a  and  of  their  gradients. 

It  is  possible  to  compute  these  variations  in  detail,  by 
using  a  computer  code  such  as  PHOENICS  on  two  conditions: 

(I)  the  grid  points  must  be  packed  into  the  region  of 

steep  gradient  changes  closely  enough  for  sufficient  numer¬ 
ical  accuracy  to  be  obtained  * 

(II)  the  functionsappearing  in  the  turbulence  model 
equations  must  properly  represent  the  influences  of  local 
Reynolds  number  on  turbulence 

Under  the  conditions  above,  the  wall  function  sequences 
in  the  program  act  as  follows: 

The  Reynolds  number  is  first  evaluated,  based  on  the 
resultant  velocity  paralel  to  the  wall,  on  the  distance  from 
the  wall  to  the  grid  node  and  on  density  and  laminar 
viscosity.  If  this  Reynolds  number  is  less  than  132.25  (the 
value  at  which  the  laminar  and  turbulent  wall  function 
intersect)  a  laminar  wall  function  is  used.  If  this 
Reynolds  number  turns  out  to  be  greater  than  132. 25  the 
velocity  variation  is  logarithmic  and  the  corresponding 
shear  stress  coefficient  is  evaluated.  This  corresponds  to 
the  commonly  used  "log  law  "  wall  function.  [Ref.  4], 


20 


E.  GRID  SYSTEM 

To  obtain  a  fine  grid  resolution  in  the  boundary  layer 
for  the  laminar  flow  case  the  first  five  cells  in  the  y 
direction  from  the  wall  obey  the  following  proportionality 
relationship 

BYFRAC(IY)  «  <  (  -xrrgH  ^ 


Where  BYERAC(  lY)  is  the  distance  from  the  south  side  to  the 
north  side  of  the  cell  of  particular  interest,  divided  by 
total  length  of  the  domain,  lY  is  the  cell  number,  is 

maximum  allowable  cell  height,  and  GH  is  the  thickness  of 
the  TVC  jet  vane. 

A  fine  grid  resolution  for  the  turbulent  flow  case  is 
set  up  in  the  same  way  as  laminar  flow.  The  Only  difference 
comes  from  the  selection  of  the  first  five  cells  in  y  direc¬ 
tion.  The  Following  calculation  shows  the  difference. 

from  the  laminar  solution  and  given  properties  the 
following  are  known. 
w=885. 2  m/s 
^lam=l*10  N. s/m 
Po=5. 5*lrf  Pa 
P8tatic=l.  048*10  Pa 
k=1.35 

P=l.a35  kg/m 

Using  the  values  above  and  the  lenght  of  vane,  which  is 
0. 095m,  A  corresponding  Reynolds  number  was  calculated: 

•  1.S4  *  10^ 

I  ♦  lo”® 


Re 


P  w  z 

•»  w 


U 


lam 
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Using  power  law  expressions 

-i-  .  0.37  .  Re-‘'=  (eqn3.14) 

2  2 


From  equation  3. 14  the  boundary  layer  thickness  at  the 
high  end  of  the  domain  have  been  calculated  as  &  2  ^  I0~m 

With  Re  based  on  the  velocity  paralel  to  the  wall^ 
•^the  disteuice  from  the  wall  to  the  first  grid  node,  the 
density,  and  ^xam  laminar  viscosity.  Ay  must  satisfy 
the  condition 

p 


Re 


2  It 


1  am 


132.25  '  or 


av  6.48  *  10  ^m 


Therefore  the  interval  of  Ay  is  chosen  such  that 


2  *  icr^m  tiv  >,  6.48  *  lO^^m 

In  this  effort  using  the  relationship 

BYFRAC<IY)  -  <  --g—  V  “tS’Ih  ^ 

Ay  has  been  calculated  as  ay  *  a  *  lo"^  m  which  is  in  tlie 
required  interval. 

For  both  laminar  and  turbulent  cases,  cells  in  the  z 
direction  were  adjusted  so  that  the  points  where  possible 
physical  phenomena  such  as  shock  wave  and  expansion  fan  are 
expected,  very  fine  cells  were  generated.  In  the  other  parts 
of  the  domain  larger  cells  were  generated.  In  this  effort 
the  grid  system  was  made  up  of  25  cells  in  the  y  direction 
and  22  cells  in  the  z  direction.  The  grid  system  for  laminar 
and  turbulent  flow  is  shown  in  Figure  3.3  and  in  Figure  3.4 
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Figure  3.1  General  Configuration  of  a  TVC  System. 


I 


Figure  3.3  Grid  Syetea  for  taminer  Flow. 
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XV.  m  QUANTITATIVE  DISTRIBUTIONS 


A.  MACH  NUMBER  DISTRIBUTION 

The  expected  oblique  shock  originates  at  the  leading 
edge  of  the  TVC  vane.  The  shock  angle  was  calculated  using 
oblique  shock  theory  as  follows:  [ Ref.  6] , - 


tanO  e 


2 

2  cotan^  ( 


Mj  (  k  +  cos(2A> 


) 


2 


( eqn  4. 1) 


C  Mj  (  k  cos^  )  +  2  3  tano 

( eqn  4. 2 ) 

«  2  cotan/J  <  sinp  -1  ) 


where  ^  is  shock  angle  and  d  is  deflection  angle  (4  degree 
for  tills  analysis). 

Using  equation  4.2  and  equation  4.1  the  shock  angle  has 
been  calculated  as  ^=20.99  degrees.  To  calculate  tiie  Mach 
number  across  the  oblique  shock,  the  following  procedure  has 
been  followed. 

M,  *  M,  Bins 
In  1 

where  M  la  the  normal  Mach  number  Immediately  before  the 
oblique  shock 


2k 

k-i 


1, 

1 


( eqn  4.  3 ) 


where  k  Is  k^^l.  35  and  M^^  is  the  Normal  Mach  number  after 
the  oblique  shock,  from  the  equation  above  M^  has  been 


calculated  using  the  relationship 


5in(^  -  e> 


Oo  00 1 


(egn  4. 4) 


where  is  the  Nach  number  after  the  oblique  shock. 

After  obtaining  the  Mach  distribution  from  the  FHOEMICS 
solution  the  points  of 

M  _  3,2  +  3.001  »  , 

"  “  —————————  ^  1 

in  the  domain  have  been  plotted  for  the  laminar  and  turbu¬ 
lent  flow  cases.'  Calculated  slope  angles  of  the  oblique 
shock  lines  for  both  laminar  and  turbulent  cases  are  20. 7 
and  21,  degrees. 

The  reason  for  selection  of  Mach  nxunber  of  M=3. 1  points 
in  the  computational  domain  is  to  take  into  account  the 
uncertalnitles  between  the  starting  and  ending  limits  of 
oblique  shock  phenomenon. 

The  pressure  ratio  is  calculated  using  the  relation 

'’2  2U  k-l^  (eqn  4.5) 

“p“”  “k7T"  "l 


Therefore  l^/p,  has  been  calculated  as  «  1.3^ 

■  1 

and  has  been  calculated  as  ^2  1.426  *  io^  Pa 
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p 


To  take  into  account  uncertain! ties  an  average  pressure 
value  has  been  calculated  as  follows; 


P 


(  1.048  *  1.426  )  » 
““"**** 


1.237  ♦  10^  Pa 
5 


Investigating  the  locations  where  F-1. 237*10  Fa  in  the 
computational  regime  corresponding  points  have  been  found , 
the  same  as  the  points  corresponding  to  M-3. 1  points.  From 
the  calculations  above  the  location  of  the  oblique  shock  has 
been  presented  in  figures  4.1,  4.2,  and  4.3 


B,  SKIN  FRICTION  DISTRIBUTION 

1.  LamiiT,^E  SMn  Friction  p.l.g,tcib.utlQn 

From  the  incompressible  Blasius  solution  [  Ref.  4] , 
skin  friction  coefficient  is: 

■  r- — (ecin4.6) 

^  (  R*.  > 

2 


s 


Figure  4. 5  shows  the  distribution  according  to  the 
Blasius  solution. 

Applying  pressure  and  viscosity  correction  factors 
to  the  incompressible  Blasius  solution,  the  following  form 
of  the  Blasius  solution  is  obtained.  [  Ref.  4] , 


0.664  < 


P  c 


w 


1/2 


Re. 


(eqn  4.7) 


where  P  “  — 

This  corrected  skin  friction  distribution  is  shown  in 
Figure  4.6 
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IT^ing  the  PHOENICS 
calculated  as  follows. 


C  - - 2 _ 

f  1  2 

P  w 


flow  field  output/  Cn  has  been 


'w 


_ |f_W _ 


Figure  4. 7  shows  the  Cp  distribution  from  this  procedure. 

Comparison  of  three  vs  z  graphs  in  figure  4. 8 
shows  that/  the  solution  for  laminar  flow  over  the  vane  is 
consistent  with  the  Blasius  solution  in  terms  of  general 
tendency.  The  jump  in  PHOENICS  solution  near  the  downstream 
end  of  the  vane  occured  because  of  the  geometry  change  from 
the  inclined  -part  of  the  vane  to  the  flat  part  of  the  vane. 
Other  deviations  from  the  general  tendency  comes  from  the 
numerical  instabilities  in  PHOENICS. 


2.  lacbalfinJ;  siOn  Frigtion  C.ogfflgisnt  Distgibutig.n 
For  comparison  of  the  turbulent  skin  friction  coef¬ 
ficient  distribution/  a  flat  plate  solution  has' been  used. 

C^  for  a  flat  plate/  assuming  incompressible  flow  is 
[Ref.  41/ 


0.455 

C  - - - - 

ln‘'0.06  Re 


(egn  4.8) 


Relation  between  <  C, 

T  COlfip 

(Ref.  71/ 


^  ^comg 


1  r 


k-1 


M* 


and  <  C-  ),  is 

t  inc 

( eqn  4.  9 ) 


where  r  denotes  the  recovery  factor  which  for  turbulent  flow 

V! 

is  r=Pr  [Ref.  71/ 


Calculated  result  of 


(  C,  ) 

- i«»£E!DE  ratio  is  0.4 

<  C.  ). 

•f  X  nc 

Therefore  the  compressible  skin  friction  coefficient  can 
be  written  as 

■(C)  «  (  — - - >  *  0.4  (eqja  4.10) 

*  comp  ln^0.06  Re^ 


The  Corresponding  C^  vs  z  distribution  is  given  in 
Figure  4.9 

<  C,  ) 

Figure  4.1  shows  the  relationship  between  and 

Mach  number  M  which  is  taken  from  [Ref.-  4t] ,  * 


Figure  4. 1  Cf  ratio  vs  M  graph. 


I  Entering  -the  Figure  4.1  for  -=--31.623 
i  rc-  )  ®  <  c.  )  ^ 

-T-p — -E22E-  has  been  obtained  as  j-p— 

Applying  this  correction  factor  to  equation  4.  8  and  using 
this  updated  equation  for  the  C^  calculations  the  corre¬ 
sponding  graph  in  Figure  4. 10  has  been  obtained. 


and 


M  =3.2  , 
-  0.77 
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In  the  calculations  using  FEOENICS  flow  field/  the 
following  relation  has  been  used. 


2  p  k 
'^w  w 


w  p  o • 


( eqn  4. 11 ): 


To  obtain  equation  4. 11/  turbulent  kinetic  energy  equation 
has  been  used  as  a  starting  point.  [Ref.  5]/ 


,  =  -i—  <  -I — 

^  s,v/  AV 


) 


Dt  <»y  ay  (eqn  4.12) 

.  c  -i-  <  -aa.  ?  .  J 

*  ‘  k  '  av  D 

The  Source  term  of  the  turbulent  kinetic  energy  equation 
should  be  zero  near  the  wall  which  means 


-r--  (  = 


ay  w 


D  Un 


( eqn  4. 13 ) 


therefore  the  shear  stress  on  the  wall  can  be  defined  ast 


T  ■  C  ^  »  k 

'-D 


( eqn  4. 14) 


where  k^^/  is  the  turbulent  kinetic  energy  on  the  wall/  is 
the  density  on  the  wall  and  is  =:  0.09  [Ref.  5]/ 
Substituting  the  values  above  into  the  Blaslus  skin  friction 
relation  the  equation  becomes; 


o 


( eqn  4. 15 ) 
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Using  this  equation  a  vs  z  graph  in  Figure  4. 11  has  been 
plotted. 

Comparison  of  those  three  graphs  in  Figure  4. 12 
shows  that  a  general  consistency  in  tendency  can  be 
observed.  The  jump  in  the  PHOENICS  solution  comes  from  the 
geometrical  change  of  the  vane,  as  in  the  laminar  flow  case. 
The  other  deviation  from  the  general  tendency  comes  from  the 
numerical  instabilities  of  FHOENICS. 

C.  LAMINAR  HEAT  TRANSFER  DISTRIBUTIONS 

In  the  laminar  flow  analysis  the  heat  flux  has  been 
calculated  using  an  equation  as  follows  for  every  cell  over 
the  surface  of  the  vane. 

□  •  — •  “^2“  (e<I»  4.16) 


where  hp  is  the  enthalpy  at  the  grid  node,  h^  is  the 
enthalpy  at  the  wall  and  ^  is  the  distance  from  the  grid 
node  to  the  wall. 

Equation  4. 16  has  been  obtained  using  the  following 
procedure. 


II 

Q  “  k 


The  corresponding  heat  flux  distribution  is  shown  in 
Figure  4. 13 

The  Stanton  numbers  have  been  calculated  by  using  the 
heat  flux  calculations.  The  Stemton  number  equation  is 


St 


f  w  (0.9  h  -  h  ) 
•  O  M 


( eqn  4. 17 ) 
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The  denominator  of  equation  4. 17  has  been  obtained  from  the 
following  relation  between  the  recovery  temperature  and 
stagnation  temperature  [  Ref.  6] ^ 


.  k  -  1  ,  „2 
1  +  r  ( - = —  >  n 

1  +  < 


0.928 


( eqn  4. 18 ) 


where  Tr  is  recovery  temperature.  To  is  stagnation  tempera- 

l/Z 

ture  and  r  is  recovery  factor  which  for  laminar  flow  is  r-Fr 
.  This  gives 


h 

r--  =0.9  and  =  0.9  h 

n  r  o 


therefore 


St 


Q 


Q 


p  w  <  h  -  h  )  p  w  <  0.9  h^) 

*^0  <B  r  w  •  0  w 


where  h^  is  the  recovery  enthalpy  and  h^  is  the  stagnation 
enthalpy.  The  distribution  of  Stanton  number  is  shown  in 
Figure  4. 14  . 

Using  the  definition  of  Stanton  number,  the  heat 
transfer  coefficient  has  been  calculated. 

H  -  p^  St  Cp  (eqn  4,  19) 

and  t)ie  H  distribution  over  the  surface  has  been  plotted  in 
Figure  4. 15 

D.  TURBULENT  HEAT  TRANSFER  DISTRIBUTION 

In  the  turbulent  analysis  taking  advantage  of  following 

skin  friction  correlation;  „  „  ^ 

^ - 

w-  p  3.33 

•  m 
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The  Stanton  numbers  has  been  calculated  using  the  Colburn 
analogy. 

St  =  It.  ,  Pr 

Stanton  number  distribution  is  shown  in  Figure  4. 16  Using 
the  calculated  Stanton  numbers.  The  heat  transfer  coeffi¬ 
cient  distribution  has  been  calculated  from 

H  =  ?  w  St  (  eqn  4.21) 

•  P 

Heat  transfer  coefficient  distribution  is  shown  in  Figure 
4. 17  From  heat  tremsfer  coefficient  values,  heat  flux 
distribution  has  been  calculated: 

-gt!-  (  0.928  Hq  -  )  (eqn  4.22) 

P 


This  equation  has  been  obtained  from  the  following  proce¬ 
dure.  [Ref.  8], 

q"-  p  .  St  <  h  -  h  )  (eqn  4.23) 

®  o»  r  w 

substituting  for  Stanton  number,  gives 


(eqn  4.24) 
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Using  equation  4.18,  equation  4. 24  yields; 

q"=  — =“ -  (  0.928  -  h  )  (eqn  4.25) 

u_  O  w 

P 

A  Graph  of  the  heat  flux  distribution  is  given  in 
Figure  4. 18 

The  corresponding  computer  programs  and  tabular  distri¬ 
bution  values  have  been  included  in  appendices  for  both 
laminar  and  turbulent  flow  solutions. 

E.  DISCUSSION  ON  CPU  TIME 

Comparison  -of  the  laminar  and  turbulent  solution  in 
terms  of  cpu  time  can  be  seen  on  the  next  table.  The  values 
below  have  been  evaluated  for  the  same  continuity  error  of 
7.416*10  and  100  "sweeps".  Continuity  error  Implies  the 
residual  error  of  mass  imbalance  for  the  particular  cell 
which  has  been  used  as  a  control  cell  euid  "sweep"  implies  a 
sequence  of  iterative  steps  through  the  integration  domain. 


TABLE  I 

CPU  TIME  COMPARISON 

TOTAL  CPU  TIME 


LAMINAR  147  seconds 

SOLUTION 


TURBULENT  188  seconds 

SOLUTION 
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/  (DIRECTION) 

O.OOIS  0^100  0.0ias  0.0270  0.035S 


OBLIQUE  SHOCK  (LAM.  SOL) 


Z  (FLOW  DIRECTION) 


Figure  4.2  Location  o£  Oblique  Shock  in  Laminar  Flow. 
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V  DIRECTION 

0.0000  0.001.  0.C170  0.02SS  0.0040 


OBUQUE  SHOCK  (TURB.  SOI^ 


Figure  4. 3  Location  ot  Oblique  Shock  in  Turbulent  Flow 


laminar  flow  OiSZo’y 

turbulent  flow  24* 


figure  4. 4  (Clique  Shock  Relative  to  Vane. 
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f-fs  si*8  srt  ire  orz 

.01*  e0*<iZaH/f990^3 


BLASIUS  SOL 


Figure  4.  5 


Laminar  Flat  Plate  Solution. 
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i 

: 

LAM  CF  (PHOE)  DIST. 


Figure  4.7  Laminar  (Phoenics)  Solution. 
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Figure  4.8  Comparison  of  Laminar  Solutions 


CF  (TURB.FUT  PLSOL) 


Figure  4. 9  Turbulent  Flat  Plate  Sol. . 
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•y* 


TURB.  CF  TEM.  COR.FL  PL  SOL 


Figure  4. 10  Turbulent  Flat  Plate  ( Corrected)  Sol. 


SOM  34.70  30.60  44.00  50.00 


CF  (TURB.PHOENIGS.SOL) 


Figure  4.11  Turbulent  Solution  (Phoenlcs). 
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0.9  2.0 


COMPARISON  OF 


TURB.S 


Figure  4. 12  Comparison 


LAM  HEAT  FLUX  DIST 


Figure  4.13  Laminar  Heat  Flux  Distribution.. 


LAM  ST  NUMBER  BIST. 


Figure  4. 14  Laminar  Stanton  Number  Distribution. 
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H  (WATT/M*^*K) 


LAM  H  COEFF  DIST 


Figure  4. 15  Laminar  K  Coeff.  Distribution. 


50 


Sl‘t2  ortz  CTBt  or9t 


TURB.  STANTON  NUMBER  DIST. 


Figvxro  4.16  Turbulent  Stanton  Number  Distribution.  ^ 


51 


TURB.  (H).  COEFF.  DIST. 


1  Turbulent  B  Ceeff.  Distribution. . 


TURB.  HEAT  FLUX  DIST. 


figure  4.18 


Turbulent  Heat  flux  pietribution. 


V.  CONCLUSION  mq  recommemdailon 


The  PHOENICS  solution  approach  to  this  problem  showed 
that  the  turbulent  case  is  more  grid  resolution  sensitive 
than  the  laminar  case.  The  reason  for  this  difference  is  the 
requirement  for  the  wall  function  in  the  turbulence  model. 

As  explained  in  Chapter  III  the  operation  of  the  wall 
function  depends  on  the  evaluation  of  a  particular  Reynolds 
number.  This  Reynolds  number  is  based  on  the  resultant 
velocity  parallel  to  the  wall  evaluated  one  grid  spacing 
from  the  wall.  This  value  is  then  checked  to  use  the  laminar 
or  turbulent  wall  function.  Since  turbulence  dies  out  close 
to  the  wall,  grid  dimensions  in  y  direction  should  be 
selected  such  that,  at  least  three  grids  should  remain  in 
the  boundary  layer,  but  they  should  be  far  enough  from  the 
wall. 

The  wedge  geometry  of  the  model  used  in  this  study  has  a 
4  degree  inclined  part  and  a  flat  part.  Since  there  are  no 
an  analytical  or  experimental  results  to  compare  the  results 
of  this  analysis  with,  the  flat  plate  solutions  have  been 
used  as  a  criterion,  for  both  laminar  and  turbulent  flow 
cases. 


54 


APEEam  A 

SATELLITE  PROGRAM  OF  PHOEMICS  USED  IN  LAMINAR  ANALYSIS 

CSDIRECTIVEXXSATLIT 

C.  SATELLITE  PROGRAM  OF  PHOEMICS  IN  LAMINAR  FLOW  ANALYSIS 

C  NZ=22  NY=25  YN«10MOH 

C  XFILE  NAMEt  MOOBFCST.FTN 

C  XABSTRACTi  SATEaiTE  MODEL  MAIN  PROGRAM.  THIS  VERSION  IS 
C  FOR  USE  WITH  THE  BODY-FITTED  COORDINATE  SCHEME  (SUMMER  1984 
C  VERSION)  PROVIDED  AS  AN  ATTACHMENT  TO  SPRING  1983  PHOEMICS. 

C  XDOCUMENTATIONt  PHOEMICS  INSTRUCTION  MANUAL  (SPRING  1983) 

C  WITH  BODY-FITTED  COORDINATES  INSTRUCTION  SUPPLEMENT 

C  (SUMMER  1964). 

C  XAUXILIARY  SUBROUTINES  (TAPES*  ETC.)  ARE  IN  SATELLITE  LIBRARY 
C  SERVICEU.  WHICH  MUST  BE  INCLUDED  IN  LINK  EDIT  TO  RUN. 
CXXXXXiaXXICXXXXXXXXXXXXXXXXXNXXXXXXXXm  standard  SECTION  1  STARTS  I 

CHAPTER  1  COMMON  BLOCKS  AND  USER'S  DATA. 

INCLUDE  (CMNGUS) 

INCLUDE  (CMNGRF) 

INCLUDE  (GUSSEQ) 

COMMON/CPI/IPWRIT. IDUN( 243 ) 

DIMENSION  60TAPE(3)*DFAULT(4) 

DIMENSION  ARRAY1(309)*ARRAY2(194)*ARRAY3(421) 

LOGICAL  ARRAY1 ,LSPDA»WRT*RO.HAMLST 
INTEGER  ARRAV2.XPLANC*YPLANE*ZPLAN£ 

INTE6E.R  PI  ,PP*U1  *U2*V1  *V2*W1  *W2*R1  *R2*RS,EP*H1  .H2*H3*Ct *CZ* 
8C3*C4 

REAL  NORTH* LOW 
LOGICAL  BFC 

EQUIVALENCE  (ARRAyi(1)*CAKTES)*(ARRAY2(1)*NK) 

EQUIVALENCE  (ARRAYS!  1 )  .SPAREU1 )).  (Ml  *  AD*  (M2*R2) 
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EQUIVALENCE  (LSTRl]N,INT6R(12)),  (NAJ1LST,L06IC(88)} 
EQUIVALENCE  ( LOGIC ( 20 ),BFC) 

cxxxxxxmxxxxxxxxxxxxxxxxxxmxxxxxxxxx  standaso  section  i  ends. 

C$DIRECTIVEX3(CMNBF1  $$ 

C  THIS  FILE. CONTAINS  SATELLITE  COMMON  BLOCKS  FOR  BFC^S 
C  FI  MUST  BE  DIMENSIONED  TO  GREATER  THAN  OR  EQUAL  TO 
C  <WX+Ny+17»NZ+24J<NW*Ny+6M<NX+l)X(Ny+1)+6JfND).  THE  VALUE 
C  OF  THE  DIMENSION  MUST  BE  SET  AS  NBFC  IN  GROUP  6  OF  SATLIT. 
COHMON/FOB/FU500O) 

COMHON/CIB/ND/CIC/KOORD 

C0HH0N/CI0/K0B6G»KDBGHF,KDB6CD»KDBIN0>KDBHFX,K0BCDT,KDBPCS> 
&  KDB6UV,KDBGPV 

COMMON/CIE/KDBGS . KDBINS 
COMHON/CIF/IGEN/CIG/NCART 

G  THE  FOLLOWING  ARRAYS  MUST  BE  EXACTLY  DIMENSIONED  FOR  NXP1> 

C  NYP1  AND  NZP1,  BUT  MAY  BE  OVER  DIMENSIONED  FOR  ND. 

C  THE  BFRAC  ARRAYS  MUST  BE  DIMENSIONED  TO  ALLOW  FOR  SETTINGS 
C  IN  SATLIT,  THEY  MAY  BE  OVER  'OIHENSIONEO . 

C0MM0N/CRA/XW(26,23, 1 )/CRB/XE(26,23, 1 ) 

&  /CRC/YS(2,23,1)/CR0/YN(2,23,1) 

a  /CRE/ZL(2,26,U/CRF/ZH(2.26,1> 

a  /CR0/RC0N/CRH/DARCY/CRI/BXFRAC(99)/CRJ/BYFRAC(99 ) 

a  /CRK/BZFRAC(99) 

CCMMON/CLA/STORSA ( 6 ) , STORND ( 6 ) , STORP , STORPE , STORPN , 
a  STORPH,STOR1,STOR2,STOR3,STOUNV,PRTBFC,STOCRN 

COMMON/CLC/BFPLOT 

LOGICAL  STORP, STORPB,STORPN,STORPH,5TOR1 , STORE, ST0R3, 
a  STORSA,STORWD,STOUNV,PRTBFC,BPPLOT,STOCRN 

C  END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  1  STARTS  i 
C  6RAFFIC  ARRAYS  OIHENSIONEO  AS  NEEDED... 

COHMON/GRAFVPHXt  ( t )  /GRAF2/PHI2(  1 ) 

C  POROSITY  a  SPECIAL  DATA  ARRAYS  DIMENSIONED  AS  NEEDED. . . 
DIMENSION  PE(1,1,n,PN(1,1,1),PH(1,1,1),PC(1,1,l) 

DIMENSION  LSPOA( 1 > , ISPOA( 1 ) ,RSPDA( 1 ) 
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C  USER  PLACES  HIS  VARIABLES>  ARRAYS,  EQUIVALENCES  ETC.  HERE. 

EQUIVALENCE(RAIR,RE(2i1 ) ) , (6AMA,RE(22) ), (QSHP,RE(23) ) 

C  USER  PLACES  HIS  DATA  STATEMENTS  HERE. 

DATA  NLSP,NISP,NRSP/1, 1,1/ 

cxxxmxxxxxmmxxxxxxxxxxxxxxxxmm  user  section  i  ends. 
cxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxm  standard  section  2  starts* 


CHAPTER  2  SET  CONSTANTS,  AND  ARRANGE  FILE  MANIPULATIONS. 

C - - - 

C  '  PLEASE  DO  NOT  ALTER,  OR  RE-SET,  ANY  OF  THE  REMAINING 
C  STATEMENTS  OF  THIS  CHAPTER. 

DATA  CELL, EAST, NEST, NORTH, SOUTH, HIGH, LOW, VOLUME/ 

&  0.',1.,2.,3.,4.,5.,6.,7>  / 

DATA  PI ,PP,U1 ,U2,V1 ,V2,W1 ,N2,R1 ,R2,RS,KE,EP,H1 ,H2,H3,C1 ,C2, 
&C3, 04/1,2,3,4,5,6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,20/ 
DATA  FIXFLU, FIXVAL, ONLYMS , NALL/1 .E-10,1.E10, 0.0, -10.0/ 

DATA  IPLANE,XPLANE,YPLANE,ZPLANE/0,1,2,3/ 

DATA  NKT,RD,DFAULT/.TRUE.,. FALSE. ,4HDEFA,4HULT.,4H0TA/,1H6/  ' 
DATA  0DTAPE/4H0USI,4HE1 .D.2HTA/ 

DATA  NLDATA,NIDATA,NRDATA/309, 194,421/ 

DATA  NLGREG,NTCVR6/60,350/ 

DATA  TITPP,TITC1 ,TITC2/3HRH0,4NMACH,4HTEMP/ 

CALL  TAPES(10,00TAPE,3,1,4MNRDATA} 

c - read  default  file  if  blockdata  absent 

IF(INTORi(29).NE.10)  60  TO  2 

CALL  WRIT40(40HOATA  ESTABLISHED  IN  BLOCK  DATA.  ) 

00  TO  3 

2  CALL  OEFLT 

CO  2  CALL  TAPES(1,0FAULT,4,2,4i(NR0ATA> 

CD  CALL  DATAXO(RO, 1 ) 

GALL  WRIT40(40HDATA  TAKEN  PROM  DEFAULT. DTA  ON  GROUP  A/C> 

3  CALL  WRIT40(40HF1LB  MODSTL.PIN  IS  THE  SATLIT  USED.  ) 
L06IC(89)*«.TRUE. 

C - - - 

CHAPTER  3  DEFINE  DATA  FOR  NRUN  RUNS. 
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C - - - - - 

cxxxxxxxxxxxxxxxxxxxxxxxmxmxxxxxmx  standard  section  2  ends. 
cxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxm  user  section's  starts < 

C -  GROUP  41MULTI"RUNS  «  RUN<1-30)<.T.,29K.F.> 

C 

RUN(1)s. FALSE. 

C  NOTEt  ALL  RUNS  ARE  DEACTIVATED  AT  THIS  POINT  -  USER  SHOULD 
C  SWITCH  ON  ONE  ONLY  OF  RUNS  1>4  IN  NEXT  STATEMENT. 

RUN(l)s.TRUE. 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  2  ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  3  STARTS i 
DO  10  IRUN«1»30 

IF(.NOT.RUN(IRUN.))  GO  TO  10 
NRUNsNRUN-i-1 
LSTRUN»IRUN 
10  CONTINUE 

DO  999  IRUNal.LSTRUN 
IF(.NOT.RUN(IRUN))  GO  TO  999 
INTGRdl)  a  IRUN 

CXXXXXXXXXXXXXXmXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  3  ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  3  STARTS i 

C -  ALL  INTEGER  VARIABLES  ARE  DEFAULTED  TO  0,  AND  SEAL  VARIABLES 

C  TO  0.0.  UNLESS  OTHERWISE  INDICATED. 

C  E.G.  BY  VARIABLE<10>.  OR  <10. 0>  AS  APPROPRIATE. 

C  THE  DEFAULT  SETTINGS  OF  ALL  LOGICAL  VARIABLES  ARE  ALWAYS 
C  INDICATED.  E.G.  VARIABLE<.T.>.  OR  VARIABLE<.F.>. 

C 

C -  RUN1 


C -  GROUP  1 .  FLOW  TYPE  • 

C  PARAB<.P.>.GARTES<.T.>.ONEPHS<.T.> 

C*'**'“**'“'““““““***"***““““ 

C—  GROUP  2.  TRANSIENCE  i 
C  STEADY<.T.>.ATIME.LSTEP<1>,FSTEP<1> 

C  TLAST<1.E10>.TPRAC(1-30)<30k1.> 

S3 


SERVICE  SUBROUTINE  FOR  ^NT*  POHER-LAH  TIME  STEPS i 
CALL  6ROPNR(0»MT,TLAST,PONER) 


GROUP  3.  X-DIRECTION  < 

NX<1>,XULAST<1 .0>>XFRAC(1-30) 

SERVICE  SUBROUTINE  FOR  POWER-LAW  GRIOt 
CALL  6RDPWR(1>NX*XULAST>POWER) 


GROUP  4.  y-OIRECTION  t 

NY<1  >;.  YVLAST<1 . 0>,  YFRAC(  1 -30  )  ,RINNER,  SNALFA 
SERVICE  SUBROUTINE  FOR  POWER-LAW  6RID> 

CALL  GR0PWR(2,Ny«yVLAST,P0WER) 

NYa25 


GROUP  5.  Z-OIRECTION  « 

NZ<1>,ZWLAST<1 .0>«ZFRAC(1-30) 

SERVICE  SUBROUTINE  FOR  POWER-LA,W  GRIOi 
CALL  6R0PWR(3*NZ«ZWLA$T>P0WER) 

NZ«22 


GROUP  G.  MOVING  GRID  OR  DISTORTED  (BODY-PITTED)  GRID  i 
-  MOVING  GRID  i 

MGRID, 1ZW1 , IZN2« AZW2,BZW2> CZW2, PINT* ZW2N1T 


-  BODY-FITTED  GRID  - 

BFC< .T . >« I0EN<1 >,ND<1 >«NBFC<SOOO>»KOORD,RCON 
BXFRACd-NXXI  .0,NXH1KO.O> 

BYFRACd-NYXI  .0»NYM1>«0.0> 

BZFRACd-NZXI  .0»NZH1M0.0> 

SERVICE  SUBROUTINE  FOR  SUB-DOMAIN  SPECIFICATION  (FOR  IO£N«>1 
ONLY)! 

CALL  DOHAIN(ID,IXF.IXL.IYF.IYL*IZF.IZL) 

XE(1-NYP1  d-NZPI ,  1-N0X(NYP11(NZP1NN0)M1  .0>« 
XW(1-NYP1,1-KZP1,1-ND), 

YN(  1-NXPM-NZP1 , 1-NCX(NXP1)iNZPlKNO)Xl  .0>, 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

0 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


YS ( 1 -NXP1 , 1 -NZP1 , 1 -ND )  / 

ZHt  1 -NXP1 , 1 -NYP1 , 1 -NB )  «HXP1  WIYP1 KND  )K1 .  0>, 

ZL<  1 -NXP1  >  1 -NYP1 , 1 -ND ) ,  STORSAt  1 -6  )<6M .  F .  > ,  STORWD  <  1  “6  Xe* .  F .  > , 
STORP< .  F .  > ,  ST0RPE< .  F .  >  ,  STORPM< .  F .  > ,  ST0RPH< .  F .  > ,  ST0U1IV< .  F .  > , 
PRTBFC< .  F  .>,  DARCY,  BFPLOK .  F .  > 

CYCLIC  BOUNDARY  CONDITIONS  ARE  DEFAULTED  INACTIVE  i 
TO  ACTIVATE  THEM  AT  SELECTED  IZ  SLABS  USE  SERVICE  SUBROUTINE > 
CALL  XCYIZ(IZ,.TRUE.) 

SERVICE  SUBROUTINE  TO  DEACTIVATE  CURVATURE  TERNS  IN  U>  V 
AND  H  EQUATIONS  ASSOCIATED  WITH  CURVATURE  OF  IX,  lY,  IZ 
GRID  LINES  RESPECTIVELYi 
CALL  UCURVEdZ,  .FALSE. ) 

CALL  VCURVE ( IZ, . FALSE . ) 

CALL  WCURVECIZ, .FALSE. ) 

NCART<1> 

XKARNIN6SI 1 1 1 1 1 


A)  WHEN  USING  BPCS  ST0VAR(H3),  ST0VAR(C4),  ST0VAR(21>  ARE 
AVAILABLE  ONLY  FOR  STORING  NON-ORTHOOONAL  VELOCITY 
COMPONENTS. 

B)  MULTI-RUNS  ARB  NOT  ALLOWED  WITH  BFC  OPTION. 

C)  MOVING  GRID, TWO-PHASE  AND  PARABOLIC  OPTIONS  ARE  NOT 
AVAILABLE  WITH  BFC  OPTION. 

D)  KE-EP  TURBULENCE  MODEL  SHOULD  BE  USED  WITH  BFC^S  ONLY 
WHEN  THE  MAIN  FLOW  IS  IN  THE  IZ  DIRECTION. 

E)  BUILT-IN  GRAVITY  TERMS  DO  NOT  TAKE  ACCOUNT  OF  BFC*S. 

NNOTES 

A)  THE  STANDARD  VELOCITY-FIELD  PRINTOUT  FOR  THE 
VELOCITY  RESOLUTES  IS  ACTIVATED  IN  THE  USUAL 
WAY.  AN  ADDITIONAL  OPTION  EXISTS  FOR  PRINTING  THE 
CARTESIAN  VELOCITY-COMPONENTS  WHICH  HAY  BE 
ACTIVATED  BY  SETTING  THE  FOLLOWING  LOGICALSt 
ST0VAR(U2)a.T.  FOR  U-COMPONENT  (CARTESIAN) 
ST0VAR(V2)a.T.  FOR  V-COMPONENT  (CARTESIAN) 
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C  .ST0VAR(W2)».T.  FOR  H-COMPONENT  (CARTESIAN) 

C  SIMILARLY  PRINTOUT  OF  NON-ORTHOGONAL  VELOCITY 

C  COMPONENTS  MAY  BE  ACTIVATED  AS  FOLLOWS < 

C  ST0VAR<C4)=.T.  FOR  U-COMPONENT  (NON-ORTHOG) 

C  ST0VAR<H3)=.T.  FOR  V-COMPONENT  (NON-ORTHOG) 

C  ST0VAR(21)=.T.  FOR  W-COMPONENT  (NON-ORTHOG) 

C  B)  BFC  (TO  ACTIVATE  THE  BFC  OPTION),  IGEN  (THE  CODE  FOR  METHOD 

C  OF  GRID  SPECIFICATION),  ND  (NUMBER  OF  SUB-DOMAINS)  AND 

C  NBFC  (THE  FI  ARRAY  DIMENSION),  MUST  BE  SET  BEFORE 

C  "STANDARD  BFC  SECTION  2".  ==a==a 

C  ALL  OTHER  BFC  DATA  MUST  BE  SET  AFTER  "STANDARD  BFC 

C  SECTION  2.  ===== 

C  C)  NXP1,  NYP1,  NZP1  STORE  NX-M,  NY-i-1,  NZ+1;  THESE  ARE 

C  AVAILABLE  TO  USER  AFTER  STANDARD  BFC  SECTION  2. 

C  D)  FOR  IOEN=1  USE  BXFRAC,BYFRAC  a  BZFRAC  IN  PLACE  OF 

C  XFRAC,YFRAG  a  ZFRAC. 

C - 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  1  STARTS i 
C  DEFAULT  SETTINGS t 
NCART=10 
BFC=.TRUE. 

1GEN=1 

ND=1 

NBFC=5000 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  1  ENDS.i 
C  XUSER  SETS  BFC,  IGEN,  ND  AMO  NBFC  HEREi 
C 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  2  STARTS t 
CALL  SB4X(NXP1  ,NX+1  ,NYP1  ,NY>1  ,NZP1  ,NZ'«>1 ,1,0) 

XF(BFC}  CALL  BFCDPT(NBFC,XE,XW,YN,YS,ZH,ZL,ND,NXP1 ,Nyp1 , 
a  NZP1,NZ) 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  2  ENOS. 

C  XUSER  SETS  ALL  OTHER  BFC  VARIABLES  HEREi 
C  XUSING  NONIFORM  GRID  l-B 
0M=6.4E-3 
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61*95. 2E-3 
GTL=1 .24K6L 
6BETA*4. 

6BETA*6BETAX3 . 1 41 5927/1 80 
6TAB*TAN(GBETA> 

DELMAX=2.E~3 

6NBL*5. 

QPWR=3. 

DO  64  IY*1»5 

64  BYFRAC ( lY) *(FLOAT ( 1Y)/6NBL) XXGPHRXDELHAX/ (10. XGH) 
DEL*( 1 . -DELMAX/ ( 1 0 . XGH) >/ (FLOAT(NY) >GNBL) 

DO  65  IY*6,NY 

65  BYFRAC<IY)*BYFRAC(1Y-1)+DEL 
BZFRAC(1)*42.373E-3 

DO  66  IZ*2,8 

66  BZFRAC  ( ZZ )  *42 . 373E-3+BZFI{AC  ( IZ-1 ) 

DO  67  IZ*9>14 

67  BZFRAC(IZ)*84.75E-3+BZFBAC(IZ-1) 

DO  68  IZ*15»16 

68  BZFRAC  ( IZ )  *42 . 373E-3+BZFltAC  ( ZZ-1 ) 

DO  69  IZ*17»22 

69  BZFRAC  ( IZ )  *1 1 . 295E*3-l>BZFRAC  ( IZ-1  > 

CALL  D0HAIN(U1,NX>1,NY,1<NZ) 

DO  61  IX*1>NXP1 
DO  62  IY*1»NYP1 
ZL(XX»IY,1)«0.0 

62  ZH(ZX»XY>1}«GTL 
DO  63  ZZ*1,NZP1 
YN(IX,IZ,1)«10XGH 

63  YS(IX,IZ,1)*0.0 
DO  663  IZ*6,^0 

663  yS(XX«IZ,1 )»(BZFRAC(IZ-1 )-BZFRAC(5))K0TABXGTL 
DO  664  ZIZ*21,22 

664  Y5(lX.n2«1)*YS(lX,20^1) 

61  CONTINUE 
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STORSA(IFIX(LOW) )s.TRUE. 

STORSA(IPIX(HIGH} )s .TRUE. 

STOREAC IFIXCSOUTH)  )= .TRUE . 

STORND(IFIX(SOUTK) >».TRUE. 

PRTBFC=.TRUE. 

CDAR  DARCY=1.E10 

C -  -  - 

C -  GROUP  7.  BLOCKAGE*  BLOCK<.F.>>IPLANE,IPWRIT 

C  XSET  CONSTANT  POROSITIES  OVER  SUB-DOMAINS  USING* 

C  CALL  CONPOR(IR>Tn>E,VALUE,IXF,IXL,IYF>iyL»IZF>IZL),  WHERE* 

C  IR=RUN  SECTION  NUMBER,  E.G.  1  FOR  RUN1  SECTIONi  ^TYPE'S  EAST, 
C  WEST,  NORTH,  SOUTH,  HIGH,  LON  &  CELL.  WALUE^sWANTEO  POROSITY 
C  OVER  REGION  IXF,...IZL. 

C  XDIMENSION  ARRAYS  PE(NX,NY,NZ),  PN(NX,NY,NZ},  PH(NX,NY,NZ),  S 
C  PC(NX,NY,NZ)  ABOVE. 

C  XFOR  FULLY-BLOCKED  CELLS  (IE.  'VALUE^a  0.0)  USER  NEED  SET  ONLY 
C  THE  'CELL'  POROSITY  (TO  ZERO),  AS  CELL-FACE  AREAS  ARE  THEN 

C  AUTOMATICALLY  ZEROED. 

C  XFOR  SATELLITE  PRINTOUT  OF  ALL  POROSITIES  IN  DOMAIN,  'IPLANE'a 
C  XPLANE  YPLANE  OR  ZPLANE,  FOR  DESIRED  CROSS-SECTION  DIRECTION. 
C  XFOR  EACH  'TYPE'  A  MAXIMUM  OP  10  CALLS  TO  CONPOR  IS  ALLOWED, 

C  BUT  IF  REQUIREMENTS  EXCEED  THIS  PROVISION  SET  BLOCK*. T.  S 

C  IPWRIT«-1,  AND  SET  POROSITY  ARRAYS  EXPLICitLY  HERE  AS  WANTED. 
C  IN  THIS  CASE,  THE  USER  MUST  SET  ALL  ELEMENTS  OF 

C  ARRAYS  PE,  PN,  PH.  PC  (MANY  HAY  BE  0.0  OR  1.0).  HE  HAY  USE* 

C  GALL  CR(PARRAY,VALUE,IXF,IXL,IYF,1YL,IZF,IZL,NX,NY,NZ) 

C  ANY  NUMBER  OF  TIMES,  TO  SET  'PARRAY'  (*  PE,  ETC.)  TO 
C  'VALUE'  OVER  RANGE  IXP  TO  IXL,  lYF  TO  lYL,  IZF  TO  IZL. 

C  XCONPOR  MUST  NOT  BE  USED  IN  CONJUNCTION  WITH  EXPLICIT 
C  SETTINGS  OP  THE  ARRAYS  (INCLUDING  SETTINGS  VIA  CR). 

C -  GROUP  8. DEPENDENT  VARIABLES  TO  SB  SOLVED  FOR  OR  STORED  * 

C  SOLVAR<1-Z5)<25M.F.>,ST0VAR(l-2S)<Z5X.F.>,C0NC1(1-4)<4X.T.> 

C  USE  FOLLOWING  NAMED  INTEGERS  FOR  ARRAY  ELEMENTS  1-Z0« 

C  PI ,PP,U1 ,UZ, VI ,V2,W1 ,W2,H1 ,M2,RS,KE,EP,H1 ,U2,U3,C1 ,C2,C3,CA. 
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S0LVAR(P1 )>.TRUE. 

SOLVAR(PP)a.TRUE. 

S0LVAR(V1)».TRUE. 

S0LVAR(W1)».TRUE. 

S0LVAR(H1  )s.TRl]E. 

CT  SOLVAR(KE}°.TRUE. 

CT  SOLVAR(EP)>.TRUE. 

ST0VAR(V2)-.TRl}E. 

ST0VAR(W2)s:.TRUE. 

ST0VAR(C1)».TRUE. 

ST0VAR(C2}a.TRUE. 

C -  -  - 

C-.-  group  9.  VARIABLE  LABELS  t 

C  TITLE  ( 1  -25 )  <2HP1 « 2HPP ,  2HU1 ,  2HU2 , 2HVU  2HV2 , 2KW1 ,  2HW2 ,  2HRU 

C  2HR2,2HRS,2}IXE,2HEP,2HH1,21IH2,2HH3,2HCU2UC2, 

C  2HC3>2KC4,2HRX>2HRY#2HRZ»  2X4HXXXX> 

C  TITLE ( Cl )»4HHACH 

C  TITLE(C2)a»TEMP» 

C  TITLE<PP)s»RH01’ 

C -  - - - -  ....... - ........ 

C—  GROUP  10  PROPERTIES  I 

C  IRH01<1>»IRH02<1>#RH01<1.0>>RH02<1.0>» 

C  ARK01<1.0>rBRH01<1.0>,CRHai<1.0> 

C  IE11U1<1>,EMU1<1.0>,EMULAM<1.E-10> 

C  IHSAT>K1SAT»H2SAT*PSATEX<1.0> 

C  SIQdA(1-25)<1.0,2.0.1..1.E10.1.»1.E10>1.»1.E10, 

G  4X1. 0»1.314«1.0>1. £10,10X1. 0> 

IRH01a4. 

PT0Ta5S.ES 

TOTaSSS.SS 

RAIRa287. 

GAMAa1.35 
CP«RAIR/( 1-1 /GAMA) 

TWa323. 

HWALL»TWXCP 
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HTOTaCPKTOT 

RHTOT=PTOT/TOT/RAIR 

L0QIC(87)s.TRUE. 

ARHOI =RHTOT/PTOT3e«< 1/QAMA) 

BRHOl*! ./GAMA 
C  TURBULENT  FLOW 
IEMUla-1 
EMUl=1.E-5 
EMULAM=EHU1 
SIVlMA(24)=0.7 
SIQMA<14)=0.7 

C -  -  - — 

C—  GROUP  n  INTER-PHASE  TRANSFER  PROCESSES  • 

C  ICFIP,CFIPS,IMDOT,CMDOT>CA1I<l .E6>,CA2I<1 .E6> 

C —  GROUP  12  SPECIAL  SOURCES  i 
C  ISPCSO (1 -25 ) . A6RAVX> A6RAVY, AGRAVZ, ABUOY. HREF 

C—  GROUP  13  INITIAL  FIELDS  i 
C  FnNIT<l-25)<a5M1,E-10> 

G  HACK  NO.  OP  FREE  STREAM 
GHACH>»3>.2 

A»1-«>(6AMA-1  }/2X6HACH)iX2 
TE»TOT/A 

RHEaRKTOT/ANM ( 1 / ( 6AMA-1 ) ) 

PSTATaPTOT/AXXCOAMA/ (GAMA-1 ) ) 

RH01 »ARHO 1 XPSTATKNBRHO 1 
S0NIC»SQRT(6ANANRAIRilTE) 

WIN»S0NICX0HACH 

RKEIN-O.Q1HNINXX2 

EPIN-0 . 16KRKEINXX1 .5/6H 

FlINn(W1)«WIM 

FIIN1T(P1  )«»PSTAT 

FlINIT(Hn«KTOT 

FIINIT(KE)aRKEIN 
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FIIN1T<EP)=EPIN 


I 


■i* 

I 

jt? 


A. 


H 

I 


p 

j*r 


i 


i. 


C -  GROUP  14  BOUNDARY/INTERNAL  CONDITIONS  > 

C  ILOOP1,ILOOPN,XCyCLE<.F  >,PBAR,RE6I0N(1>10)<10X.T.> 

C'  XN.D.  ALL  10’ REGIONS  ARE  DEFAULTED  TRUE..  THE  USER  SHOULD 
C  SET  REOION(I)>. FALSE.  FOR  UNUSED  REGIONS  'I*. 

DO  14  I»1,10 
14  REGI0N(I)». FALSE. 

C - - -  -  - 

C—  GROUP  15  TO  24;  REGIONS.  1  TO  10 

C...  only  those  REGIONS  ARE  ACTIVE  NHICH  ARE  SPECIFIED  BY  THE 


USER,  PREFERABLY  BY  WAY  OFi- 
CALL  PLACE(IREGN,TyPE,IXF,IXL,IYF,IYL>IZF,IZL}  & 
CALL  COVAL(IREQN,VARBLE,COBFF, VALUE) 

CALL  PLACE(1,LOW,1,NX,1,NY,1,1) 

C  CALL  COVAL(1.I11,FIXFLU.WINXRHE) 

CDAR  CALL  COVALC 1 ,H1 , 1 .E>20 , 1 .E+ZOXNINXRHE) 

'  GCN*2XGANA/WIN/(6AI1A-1) 

QVMaPTOTXRHE/RKTOT 
CALL  C0VAL(1#M1,6CH,6VN) 

CALL  C0VAL(1,W1,0NLYMS,WIH) 

CALL  C0VAL(1,H1,0NLTMS,HT0T) 

CALL  C0VAL<1»fS,0NLYHS,RXEIN) 

CALL  C0VAL<1,I^.0NLYHS,EP1N) 

GALL  P;ACE(2. HIGH. 1 , NX, 1 NZ,NZ) 

CALL  C0VAL(2,(t1  # FIXVAL,PSTATXO . ) 

CALL  C0V.4H2,Ml,1000XWINlimtE/PSTAT,PST/TV 

WALL  AI.0HG  THE  VANE  IZ(6j22) 
aCi1»EMU1/(  .SxBYFHACd  )M10.HGU) 
DY1sBYFRAC(1)K10.XGK 
C0EPF«EHU1/(0.SXBY1) 

G0£PH°EMU1/(0 . SXDY1 XSIGNA(24 ) ) 

CALL  PLACEtS. SOUTHS. NX,  1,1,6,22) 

CALL  C0VAL(3.W1,GOEPF,0.) 

CALL  C0VAL(3,M1,6O£PH..HMALL) 


C 

C 
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C  CALL  COVAL(3,KE,NALL,0.) 

C  CALL  COVAL(3»EP/KALL,0.) 

C -  GROUP  25  GROUND  STATION  i 

C  GR0STA<.F.>>NAMLST<.F.> 

C  ifNAHLST  ACTIVATES  NAHEUST  IN  GROUND. 

GROSTA».TRUE. 

C -  -  - - 

C -  GROUP  26  SOLUTION  TYPE  AND  RELATED  PARAMETERS  i 

C  NHOLEP<.F.>,SUBFST<.F.>#DONACG<.F.> 

NHOLEP».TRUE. 

C -  -  - - 

C...  GROUP  27  SWEEP  AND  ITERATION  NIDIBERS  i 

C  FSNEEP<l>>LSWEEP<1>«LITHYD<1>«UTC<1>*LITKE<1>,LITH<t>> 

C  UTER(l-25)<9Ml,-t,15Ml> 

C  1VELF<1>,NVEL<1>»IVELL<10000>« 

C  IXEF<1>,NKE<1>,XEBL<100CO>. 

C  IENTF<1>»NENT<1>,IENTL<10000>, 

C  ICNCF<1>,NCNC<t>.ICNCL<10000>» 

C  IRH01F<l>»NRHOt<t>,IRH01L<10000>, 

C  XRH02F<1>«NRH02<I>,IRU02L<10000> 

LSWEEP«100 
6SNP«LSWEEP 
CR  FSWEBP*200 

UTERCPP)«20 
LlfERtV1)*2  ■ 

UtERCWl  )*S 
C  LIIWD*2 

C -  GROUP  28  TERHXHATION  CRITERIA  • 

C  ENDITn-2S)<9>i1,E-IO,O.S,1S»l.E-1<» 

EHDlT(t)al.E-S 

C -  G.»!OUP  29  RELAXATION  • 

C  RLXP<1 .>rRLXPXY<1 .>,RLXPE<t .>*RLXRJ(0<1 .>,RLXMDT<1 .>« 


C  DTFALS(3-25)<233fl.E10> 

DTFALS(W1)=1 .E-5 
DTFALS(V1 )=1 .E-4 
RLXP=.2 

c - : -  -  - 

C -  GROUP  30  LIMITS  t 

C  VELMAX<1 .E10>,VELMIN<-1 .E10>,RHOMAX<1 .E10>,RHOMIN<1 .E-10>, 

C  TKEMAX<1 .E10>,TKEMIN<1 .E-10>,EMUMAX<1 .E10>,EMUMIN<1 .E-10>, 

C  EPSMAX<1 .E10>,EPSMIN<1 .E-10>,AMDTMX<1 .E10>,AMDTMN<-1 .E10> 

C -  -  - 

C -  GROUP  31  SLOWING  DEVICES  i  SLORHO<1 .>,SL0EMU<1 .> 

SL0RH0=.5 


C -  - 

C—  GROUP  32  PRINT-OUT  OF  VARIABLES  i 
C  PRINT(1-25)<.T.,.F.,23X.T.>,SUBWGR<.F.> 
PRINT<C1)=.TRUE. 

PRINT (C2)=. TRUE. 

PRINT (PP)=. TRUE. 


C -  - 

C—  GROUP  33  MONITOR  PRINT-OUT  i 
C  IXMON<  1  > ,  IWON<  1  > ,  IZMON<  1  > ,  NPRMON<  1  > » NPRMNT<  1  > 

NPRM0N=5 
iyM0N=2 
IZMON=S 


C- 

C- 

C 

C 

C 


C- 

c- 

c 

c 


GROUP'  34  FIELD  PRINT-OUT  CONTROL  i 

NPRINT< 1 0  0  > , NTPRIN< 1 0  0  > , NXPRIN< 1 > , NYPRIN< 1 > , NZPRIN< 1 > , 

IZPRF< 1 > , ISTPRF< 1 > , IZPRL< 1 0000> , ISTPRL< 1 0  000  > 

NUMCLS<10>,K0UTPT 

NPRINT=LSWEEP 

NUMCLS=5 


GROUP  35  TABLE  CONTROL  • 

TABLES< . F . > , NTABLE , NTABVR. LINTAB , NPRTAB » NMON , 
ITAB<l-8),MTABVR(1-8) 
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L 

I 

i 

I  ^ 


VI 


RESID(1-2S)<2«.F. ,23K.T.>,K0UTPT 
RESREF(1)«WINMRHE 
R£SREF(?)«WZN»RESRBF( 1 ) 
RESREF(S)«WINMRESR6P( 1 )X0. 1 
RESR£F(H1 )«HTOTKRESREFC 1 ) 
RESREF<KE)»RKCINKRESREF(1 ) 
RESREF(EP)bEPINMR£SREF(1 > 
IBRRP-LSWEEP'IO 
KOUTPTaLSWEBP/10 


I 


GROUP  40  SPECIAL  DATA  •  LOGXCd . .10)>XNT6R(1 . .10)»RE(21 . .30), 
NLSP< 1 > , NISP< 1 > , NRSP<  T  > , SPDATA< . F . > , LSPDA< 1 ) , ISPDA( 1 ) , RSPDA< 1 ) 
USE  FIRST  10  ELEMENTS  OF  ARRAYS  LOGIC  ft  INTGR  AND  2 1ST 
TO  30TH  OF  ARRAY  RE  FOR  TRANSFERRING  SPECIAL  DATA  FROM 
SATELLITE  TO  GROUND,  BUT  IF  REQUIREMENTS  EXCEED  THIS 
PROVISION  SET  SPDATA  «  .T.,  AND  DIMENSION  ARRAYS  LSPuA, 

ISPDA,  RSPDA  ABOVE  AND  IN  GROUND  AS  NEEDED,  AND  SET  HERE 


li'^A 


•  « 


’A**  '41* 


C - 

C -  GROUP  42  RESTARTS  AND  DUMPS  t  SAVEM<.F.>>RESTRT<.F.>>KINPUT 

SAVEM=.TRUE. 

BFPLOTa.TRUE. 

C  RESTRT=.TRUE. 

C-^ -  -  - - - 

U—  GROUP  43  GRAFFIC  t 

C  GRAPHS< .  F .  > ,  ORTHOG< .  T .  > ,  ANTSYM ,  NPRT<  1  > ,  ITITL<53t4HKK*K> 

C>—  FOR  A  GRAFFIC  RUN,  DIMENSION  PHIi  &  PHI2  AS  FOLLOWS i 
C  PHII (NXMNYXNZXNH) 

C  PHI2((NX-<-2)X(NY+2)X(NZ+2)X(NH’«-IBLK})  ,  WHERE 
C  NM=NO.  OF  VARIABLES  STORED  *  DENSITYC-IES) 

C  IBLK^O  IF  BLOCKS. FALSE., jp  A  3D  RUN, 

C  a3  IF  A  2D.YZ  RUN. 

C -  -  - 

IF(IRUN.EQ.I)  GO  TO  900 
900  CONTINUE 
C—  ALL  RONS 

cxxxxxxxxmxxxxxxxmxxxxxxxxxxxxxxxxxx  user  section  3  ends. 
cxxxxxxxxxxxxmxxxxxxmxxxxxxxmxxm  standard  section  4  starts  • 

c« - - - - - - - - - - - - - - 

C  write  general  data  on  to  the  GUSIEI.DTA  tape,  BTC... 

IF(SPDATA)  call  WRTSPC(LSPDA,NLSP,ISPDA,NISP,RSPDA,NRSP) 
IF(BLOCK)  call  WRTP0R(PE,PN,PH,PC,NX,NY,NZ,IPLANE) 

IF(BFC)  CALL  WRTBFC(14,N6FC,X£,XW,YN,YS,ZH,ZL, 

&ND,NX^1 ,NY^1 ,NZ«1 ,NZ.PRTBFC) 

C  OLD  PRACTICES  RETAINED  FOR  REFERENCE) 

C  IF(SPDATA)  CALL  SPCDAT(IRUN) 

C  IF(BLOCK)  CALL  POROAT(IRUN) 

IF(GRAPHS)  CALL  SORTdRUN) 

IPCRESTRT)  GO  TO  902 
DO  901  IN0VARsl,25 

IF(IFIX(FIINIT(lNDVAR}<t>0.1).NE.  10101)  GO  TO  901 
CALL  FLOOAT(IRUN) 
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60  TO  902 

901  CONTXNOE 

902  CALL  DATAIOCWRT/IO) 

IF(HONITR)  CALL  SATAI0(HRT,-6) 
999  CONTINUE 
STOP 
END 

CXXX  lOENsI  SO  BFCXYZ  NOT  REQUIKEO. 

CXXX  COMMENT  OUT  BOTH  VERSIONS. 

C - 

SUBROUTINE  BFCXYZ  (NXP1,NYP1>NZP1) 

RETURN 

END 


APPENDIX  fi 

GROUND  PROGRAM  OF  PHOENICS  FOR  LAMINAR  FLOW  ANALYSIS 

C$DIRECTIVEXXHAIN 

C  GROUND  PROGRAM  OF  PHOENICS  USED  IN  LAMINAR  FLOW  ANALYSIS 
C  NZ=22  NY=25  LAMINAR  FLOW 

C  XFILE  NAME*  MODBFCGD.FTN 

C  XINCLUDE  DEO  SUBROUTINES i  THE  MODELS  OF  MAIN,  GROUND  &  STRIDE. 
C  .  XOOCUMENTATION*  PHOENICS  INSTRUCTION  MANUAL  (SPRING  1983) 

C  WITH  BODY-FITTED  COORDINATES  INSTRUCTION  SUPPLEMENT 

C  (SUMMER  1984). 

C  MSATELLITE  FILE  NAMEi  MODSTL.FTN 

COMMON/ISHIFT/III (57 ) ,NFMAX 

C  SET  F-ARRAY  DIMENSION  AS  NEEDED,  &  SET  NFMAX  ACCORDINGLY. 

C  FOR  BFC'S  ALSO  SET  FI -ARRAY  DIMENSION  AS  NEEDED  ,AND  SET 
C  NF1HAX  ACCORDINGLY. 

COMMON/FOB/FI (10000) 

COHMON/NPOB/NPIHAX 
COMMON  F( 25000) 

NPMAX»25000 
NFIMAXalOOOO  • 

CALL  HAIN1 

STOP 

END 

C^DIRECTIVEMMGROUHD 

SUBROUTINE  GROUND (IRN, ICHAP, ISTP, ISWP, I2EO , INDVAR) 

INCLUDE  (CMNGUS) 

INCLUDE  (GUSSCQ) 

C  INCLUDE  NMLIST 
LOGICAL  BPC 

EQUIVALENCE  ( LOGIC ( 20 ) , BFC ) 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXm  STANDARD  SECTION  1  STARTS  • 


C+'l-mHEANZNG  OP  SUBROUTINE  AROUMFNTSt 

C  IRNaRUN  NUMBER;  ICHAP«CHAt>TER  CALLED;  ISTPsTIHE  STEP; 

C  ISWP>SOLUTION  SWEEP;  IZF]>z>SLAB;  INDVARt  SEE  CHAPTERS  BELOW. 
C-l"i>-i-<H>USER*INTROOUCEO  VARIABLES  &  ARRAYS* 

C  TO  AVOID  CONFLICT  WITH  VARIABLE  NAMES  USED  IN  COMMON,  ALL 
C  VARIABLES  INTRODUCED  BY  THE  USER  SHOULD  HAVE  NAMES  STARTING 
C  WITH  ^G'  IF  REAL,  M’  IF  INTEGER,  AND  «G^  OR  IF  LOGICAL. 

C  THUS  GDZdZ)  MIGHT  BE  A  Z-INTERVAL  ARRAY; 

C  6N1(IY,IX)  A  2-D  ARRAY  FOR  AXIAL  VELOCITY;  ETC. 

C  USER>6ENERATE0  SUBROUTINES  SHOULD  BE  NAMED  CORRESPONDINGLY, EG 

C  SUBROUTINE  GVISC(OTEMP,GCNC,GVSC),  FOR  COMPUTING  VISCOSITY 
C  PROM  CONCENTRATION  &  lEMPERATURE . 

C+-»-mGROUNO-TO-EARIH  CONNECTING  SUBROUTINES* 

C  MUSE  GET(NAME,GARRAY,NY,NX)  TO  PUT  VALUES  OF  VARIABLE  NAMED 
C  'NAME*  INTO  ARRAY  'GARRAY*  DIMENSIONED  GARRAY(NY,NX) . 

C  MUSE  SET(NAMB,IXF,IXL,iyP.IYL.OARRAY,NY,NX)  TO  SET  VARIABLE 
C  «NAME*  TO  QARRAY(IY,IX>  OVER  THE  REGION*  IXF-IXL  S  IYF>IYL. 

C  MUSE  PRNSLB(NAME)  TO  PRINT  VARIABLE  *NAHE«  OVER  X-Y  PLANE. 

C  MUSE  ADD(NANB.IXP,IXL,IYF,iyL,TYPE,CM,VM,CVAR,VVAR,NY,NX> 

C  TO  ADD  SOURCE  TO  VARIABLE  NAMED  *NAME*  (SEE  CHAPTER  5). 

C  MUSE  READIZdZED)  IN  CHAPTERS  1,  2,  8,  a  9  TO  ACCESS  PI,... DM 

C  a  VOL, . . .AHOZ.  (SEE  FOOTNOTE  TO  LEGALITY  TABLE) 

C  MUSE  6ET1D(NAHE.QARRAY,NDIM>  TO  PUT  VARIABLE  NAMED  'NAME*  IN 
C  0NE~0  ARRAY  'GARRAY*  DIMENSIONED  NDIM,  THUS* 

C  CALL  0ET1D(NAMC,6NX,NX)  FOR  XO,...DXO  a  DIMENSION  GNX(NX>; 

C  GALL  6ET1D(NAHE,6NY,Ny)  FOR  YO,...RV  a  DIMENSION  GNy(NY)l 
C  CALL  GET10(NAHE,GNZ,MZ)  FOR  ZG, . . .WGRID  a  DIMENSION  6NZ(NZ). 
C4‘>H»M>LEGALITY  TABLE  FOR  USE  OF  EARTH-CONNECTING  SUBROUTINES* 

C  ENTRIES  IN  TABLE  GIVE  CHAPTERS  IN  WHICH  SUBROUTINES  CAN  BE 

C  USED  FOR  VARIABLES  IN  LEFT-HAND  COLUMN.  (SUBROUTINE 

C  STRIDE  IS  REGARDED  AS  BEING  IN  CHAPTER  3) 

C  - 

C  *  VARIABLE* »  GET  a  *  SET  •  ADO  •  READIZ  •  GET1D  * 

C  *  I*  PRNSLB  *  i  I  i  I 


C 

tPI  -  RZ  II 

ALL  1 

6  a  7  1 

5 

t 

1,2.8,91 

NONE 

c 

IPIO  -  RZHil 

5-7.  10-t6i 

3  1 

NONE 

t 

NONE  1 

NONE 

C 

iVOL  -AHDZii 

ALL  1 

3  1 

NONE 

t 

1,2,8,9i 

NONE 

C 

iDIDP  II 

NONE  1 

10  1 

NONE 

t 

NONE  1 

NONE 

c 

iD20P  1 1 

NONE  1 

11  1 

NONE 

t 

NONE  1 

NONE 

c 

iMUl.MUIH  II 

5,13-16  1 

12  1 

NONE 

1 

NONE  1 

NONE 

c 

iEXCO(L.H)ii 

NONE  1 

13  1 

NONE 

1 

NONE  1 

NONE 

c 

iCFP  II 

5  1 

14  1 

NONE 

1 

NONE  1 

NONE 

c 

iMDT  1 1 

5  1 

15  1 

NONE 

1 

NONE  1 

NONE 

c 

iHSTI.HSTZii 

5  a  IS  1 

16  1 

NONE 

t 

NONE  1 

NONE 

c 

iXG  -WGRIDii 

NONE  1 

NONE  1 

NONE 

t 

NONE  1 

ALL 

u 

c 

NOTES  ON  ABOVE  TABLE i 

C  XIN  CHAPTERS  1,  2,  8>  &  9  VARIABLES  PK .  .DM  a  GEOMETRY 
C  VOL. . .AHOZ  CAN  BE  ACCESSED  BUT  ONLY  IN  CONJUNCTION  WITH 
C  USE  OF  R£AOIZ>  THUSt 

C  DO  1  IZEO-1,NZ 

C  CALL  READIZdZEO) 

C  1  CALL  GET(...  AS  REQUIRED..) 

C  XGEOMETRY  ACCESSED  BY  READIZ  IS  THAT  AT  INITIAL  TIME. 

C  MDIDP  a  D2DP  ONLY  ACCESSIBLE  IN  UNSTEADY  FLOWS. 

C-»-4»t»^-t>6R0UN0  SERVICE  SUBROUTINES  i 

C  MUSE  CONTUR(NAHE.IPLANE*ILOC>NINT,I1,I2,J1.J2,GARRAY#NOIH)  FOR  ' 
C  LINE-PRINTER  PLOTS  OP  CONTOURS.  ’NAME*  »  Un...C4} 

C  ’IPLANE**  XPLANE,  YPLANE.  OR  ZPLANEt  ILOC  SETS  !X»  IY»  OR 
C  IZ  LOCATION  OF  IPLANE)  II.  12.  JU  a  J2  SET  FIRST  a  LAST 

C  CELLS  IN  HORIZ.  a  VERT.  ON  PLOT)  GARRAY  IS  1-D  WORICING  ARRAY 

C  OP  DIMENSION  NXNNY.  NXMNZ.  OR  NYMNZ  DICTATED  BY  IPLANE;  a 
C  NDIM  SETS  VALUE  OP  DIMENSION  OF  GARRAY. 

C  MUSE  PLDZOAdXTLE.GARRAY.NY.NX)  TO  PRINT  ANY  ARRAY  DIMENSIONED 
C  GARRAYCNY.NX);  SET  'TITLE*  TO  REQUIRED  NAME  (  4  HOLLERITH 
C  CHARACTERS  ONLY). 

C  MUSE  PLD3DA(TITLE.GARRAY.NX.NY.NZ.IPLANB.XL0C)  TO  PRINT  ANY 
C  ARRAY  DIMENSIONED  GARRAY (NX. NY. NZ)  IN  PLANE  SPECIFIED  BY 

C  'IPLANE*  a  'ILOC  AS  FOR  CONtUR  ABOVE;  SET  'TITLE*  AS  FOR 
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C  FLD20A. 

C  VARIABLE  NAMES  FOR  USE  IN  GROUND t 

COHMON/TyPE/CELL,EAST,NEST>NORTH,SOUTH^HIGHaOW,VOLUME,WALL 
COHMON/VAR/P1  >PP,U1  »U2>V1  ,V2,W1  «W2,R1  >R2^RS^ 

4.12,EP,H1 ,H2,H3,C1 ,C2,C3,C4,RX,Ry/RZ,S1 ,S2 
COMHON/VAROLD/P1 0 , PPO , U1 0 , U20 , VI 0 / V20 , HI 0 , W20 , R1 0 > R20 > RSO » 
&KE0/EP0,K10,H20,H30,C1O,02O>C30,C40,RX0,RYO,RZO,S10,S20 
C0HH0N/VARL0W/P1L,PPL«U1L,U2L»V1L»V2L,H1L,N2L,R1L>R2L,RSL» 
&KEL*EPL,K1 L»H2L, H3L, Cl L, C2L» C3L, C4L, RXL^RYL, RZL, SI L, S2L 
C0HM0N/VARHI/P1H,PPH«U1H,U2H,V1H>V2H,W1H,W2H,R1H,R2H,RSH« 
ai{EK>EPK*H1H«H2H.H3H«G1K>C2H>C3H«C4H,R»i»RyH>RZH»S1H,S2H 
COHHON/GMTRy/VOL<VOLO,AEAST«ANORTH,AHI6H>AEOX*ANDy>AHDZ 
COHKON/PROP/D1 «02.D1DP>02DP,MU1 >NUlLAM,EXCO,CFP>HOT>HST1 ,HST2 
COMHON/PRPOLO/DI 0 . D20 
COMMON/PRPLOH/01 L»D2L*EXC0L 
CQMM0N/PRPHI/01H.02H»HU1H*EXC0U 
CQMMON/VARNX/XG > XU, DXU.DX6 
COHMON/VARNy/yG.YV,OyV,OYO,R,RV 
COMHON/VARNZ/ZG, ZW1 . OZW, 026, WGRID 
CONMON/GOHSCI/XPLANE,YPLANE, ZPLANE, XTNO 
CONNON/GDNSCL/LSLAB,MSLAB,MSLAB,LAimU 
REAL  NORTH, LOW 

INTEGER  P1,PP,U1,U2,V1,V2,U1,W2,R1,R2,RS, 
aEP,H1,H2,H3,C1,C2,C3,C4,RX,Ry,RZ,S1,S2 
INTEGER  P10,PPO,U10,U20,yiO,V20,N10,W20,R10,R20,RSO^ 
&EPO,H10,H2Q,H30,C10,C20,C30,C40,RXO,RyO,RZO,S10.S20 
INTEGER  P1L.PPL,UlL,U2L,V1L,V2L,W1L,H2L,RtL,R2L.flSL, ’ 
&EPL,H1L,H2L,H3L,C1L,C2L,C3L,C4L,RXL,RyL,RZL,S1L,S2L 
INTEGER  P1H,PPH,U1K,U2H,V1H,V2H,W1H,W2H,R1H,R2H,RSH, 
8£PH,H1H.H2H,H3H,C1H,C2K,C3H,C4H,RXH,RyH.RZH,S1H,S2H 
INTEGER  VOL,VOLO,AEAST,ANORTH,AHIGH,AEDX,ANOy,AHOZ 
INTEGER  01 ,01DP,D2,020P,EXCO,CPP,HST1 ,HST2 
INTEGER  010,020, D1L,D2L,EXC0L,D1K,D2H.EXC0H 
INTEGER  X6,XU,0XU,0XG,y6,W,0yV,0yG,R,RV,ZG,ZH1,0ZH, 
SOZG.WGRio 
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INTEGER  XPLANE,YPLANE>ZPLANE 
LOGICAL  LSLAB,HSLAB,HSLAB>LAMHU»LSPOA 
EQUIVALENCE  (H1,R1),(H2,R2) 

C  SATLIT-EQUIVALENT  IRUNt 

EQUIVALENCE  ( IRUN,  INT6R(  ID) 

cxmxmxxxxxxRxxxxxxxxxxxxxxxxxxxxxm  standard  section  i  ends. 
cxmxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxx  user  section  i  starts  > 

C  ARRAYS  (  DIMENSIONED  NY.NX  )  FOR  USE  WITH  'ADD* i 

DIMENSION  CVAR(1,1),VVAR(1,1),CM(1,1),VM(1,1),ZER0<1,1) 
DIMENSION  GP(30>1),GH(30«1>,GD(30,1),GV(30,1),GW(30»1) 

1  >GMACH(30,1),GTEMP(30«1)>GVISC(30>1) 

C  SPECIAL-DATA  ARRAYS  DIMENSIONED  &  DIMENSION  VALUES  SET  HEREi 
DIMENSION  LSPDA(1),ISPOA(1),RSPDA(1) 

C  USER  PLACES  HIS  VARIABLES,  ARRAYS,  EQUIVALENCES  BTC.  HERE. 
EQUIVALENCE  (RAIR,RE(21 ) ) , (GAMA,RE(22) ) . (6SUP,RE(23} > 

DATA  NLSP,f)ISP,NRSP/1, 1,1/ 

DATA  CVAR, WAR,  CM, VM,  ZER0/5MC .  0/ 

C  USER  PLACES  HIS  DATA  STATEMENTS  HERE. 
CXXXXXXXXXXXmXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  1  ENDS. 

cxxxxxxxmxmxmmxxxmxxxxmxmx  standard  section  z  starts  i 

* 

C  PLEASE  00  HOT  ALTER,  OR  RE-SET,  ANY  OP  THE  REMAINING 
C  STATEMENTS  OP  THIS  SECTION. 

DATA  NUMCH4  /  0  / 

IFCSPDATA) 

ftCALL  R0SPC(1RN,INTGR(121,LSP0A,NLSP,ISP0A,NISP,RSPDA,NRSP) 
CALL  GHDUTY(IRN,IGKAP,IZEO,INDVAR> 

IF(BFC)  CALL  BPCGR0(IRN,1CHAP,ISWP,I2£D,IN0VAR) 
IFCICHAP.EQ.-S)  GO  TO  10 
XF(ICHAP.LE.O.OR.ICHAP.GT.16>  RETURN 
GO  TO  (100,200,300,4999,500,600,700,800,900,1000,1100,1200, 

&1 300 , 1 400 , 1500 , 1 600 ), ICUAP 
RETURN 

4999  NUMCH4»  NUMCH4  *  1 

IF  (H0D(NUH(m4,2).EQ.n  60  TO  400 
RETURN 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXm  STANDARD  SECTION  2  ENDS. 
CXXXXXmXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  2  STARTS! 

c - - - 

C  CHAPTER  Oi  MODIFY  SATLIT  DATA,  AT  START  OF  EACH  IRN. 

10  CONTINUE 

C  IF(.NOT.NAHLST)  RETURN 

C  IFdRN.EQ.NRUN)  DATFIL^. FALSE. 

C—  READ  SATLIT  DATA  NAMELIST  HERE 

C  CALL  NRIT40(40HENTER  NAMELIST  DATA  FOR  GROUPS  1  TO  24  ) 

C  REAO(20,G1G24) 

C  CALL  NRIT40(40HENTER  NAMELIST  DATA  FOR  GROUPS  25  TO  42  ) 

C  REAO(20>625G42) 

RETURN 

C - - - - - 

CHAPTER  1 1  CALLED  AT  THE  START  OF  EACH  TIME  STEP. 

SET  <OT*  HERE  WHEN  TLAST  SET  NEGATIVE  IN  BLOCK  DATA. 

C  ’ATIME  *  DT*  GIVES  THE  END  TIME  OP  THE  CURRENT  TIME  STEP. 
NOT  ACCESSED  IP  STEADY, OR  PARABOLIC. 


100  CONTINUE 
RETURN 


CHAPTER  2t  CALLED  AT  THE  START  OF  EACH  SWEEP. 


200  CONTINUE 
RETURN 


CHAPTER  3>  CALLED  AT  THE  START  OF  EACH  SLABf 
NOT  ACCESSED  IF  PARABOLIC,  BUT  * STRIDE'  IS. 

300  CONTINUE 
RETURN 


C 


CHAPTER  4!  CALLED  AT  THE  START  OF  EACH  R£>GALCUUTION  OF 


c 

c 


VARIABLES  PU...C4  AT  CURRENT  SLAB.  ITNQs  ITERATION  NUMBER 


C- 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c- 

c 

c 

c* 


400. CONTINUE 
RETURN 


CHAPTER  5t  GROUND  CALLED  WHEN  SOURCE  TERN  IS  COMPUTED. 

INDVAR  GIVES  DEPENDENT  VARIABLE  IN  QUESTION  IE.  Un...C4. 

TO  ADD  SOURCE  TO  DEPENDENT  VARIABLE  CUSAY)  FOR  IX»IXF>IXL 
AND  XY^IYF^IYL  INSERT  STATEMENT! 

IF(INDVAR.EQ.CI) 

&CALL  ADD(INDVAR«IXF>IXL,IYF,IYL,TYPE,CM,VM,CVAR,VVAR,NY,NX) 
NOTES  ON  «ADD*i 

XSOURCEa  ( CVAR( IY>  IX ) -^AMAXI  (0.0, MASFLO ) ) X( VVAR(  lY,  IX )  -PHI )  > 

WHERE  *PHI*  IS  IN-CELL  VALUE  OF  VARIABLE  IN  QUESTION. 

X'MASFLO’s  CM<IY,IX)*(VM<IY,IX)-P), 

WHERE  ^P’  IS  THE  IN-CELL  PRESSURE. 

XFOR  INDVAR«  Ml,  OR  aH2,  SOURCE  ADDED  IS  'MASFLO'  ONLY, 

EXCEPT  FOR  ONEPHSb.F.  Q  MASFLO  <  0.0  (IE.  OUTFLOW)  WHEN 
CH(Xy,IX)  IS  MULTIPLIED  BY  R1KD1  (FOR  HI)  B  R2M02  (FOR  M2). 
MBOTH  'CVAR'  &  'CM'  ARE  HUTLXPLIED  BY  CELL-GEOMETRY  QUANTITY 
DICTATED  BY  SETTING  OF  'TYPE'  (»CBLL,  BAST  AREA, . .VOLUME) . 
KTYPE-SPECIFIED  AREAS  ARE  CALCULATED  AS  IP  BLOCKAGE  ABSENT, 

BUT  'VOLUME'  WITH  ACCOUNT  FOR  ITS  PRESENCE. 

MFOR  ALL  SOLVED  VARIABLES,  INCLUDE  DING  Ml  (  B  H2  WHEN  ONBPHS»F), 
IF  «CM'>  0.0  CALL  'ADD'l  FOR  Ml  B  M2  ALTHOUGH  'CVAR'  B  'WAR' 
HAVE  NO  SIGNIFICANCE  THEY  MUST  BE  ENTERED  AS  ARGUMENTS. 

M'CVAR',  'WAR',  'CM'  B  'VM'  MUST  BE  DIMENSIONED  NY, NX. 


500  CONTINUE 
RETURN 


CHAPTER  6 1  CALLED  AT  THE  END  OF  EACH  VARIABLE-RECALCULATION 
CYCLE  COMMENCED  AT  CHAPTER  4.  ITNO  »  ITERATION  NUMBER. 


600  CONTINUE 
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RETURN 


C - 

C  CHAPTER  7t  CALLED  AT  END  OF  EACH  SLAB-NISE  CALCULATION. 

700  CONTINUE 

I^(FL0AT(ISHP).LT.6SWP)  RETURN 
CALL  GET(P1,6P>NY,NX) 

CALL  GET(H1,OH,NY>NX} 

CALL  GET(D1>6D,NY>NX} 

CALL  GET(V1,GV,NY,NX) 

CALL  GET(W1>GW.NY.NX) 

GCP=RAIR/(1 .-1/GAMA) 

DO  701  I=%MY 

GSON=SqRT(GAMAXGP(I, 1 )/GO(I> 1 ) ) 

6AV»SQRT(GV(1, 1  ))(X246N(I,1  iKXa) 

GMACH(I*1)bGAV/GSON 
C  701  GTEMP(I.1)-6P(X«1)/GD(I»1>/RAIR 

701  GTEMPCI*  1  )a(0H(1. 1  )-6W(1, 1  iXNR/Z.-GVd,!  )KM2/2.  }/GCP 
.GALL  SET(C1 , 1 »NX, 1 .NY.GHACH.NY.NX) 

CALL  SET(C2«nKX«nNY>GTEMP»Ny.MX) 

RETURN 

C  CHAPTER  8i  CALLED  AT  THE  END  OF  EACH  SWEEPi 
C  MOT  ACCESSED  IF  PARABOLIC. 

800  CONTINUE 
RETURN 

C  CHAPTER  9i  CALLED  AT  THE  END  OF  EACH  TIME  STEP; 

C  NOT  ACCESSED  IF  PARABOLIC. 

900  CONTINUE 
RETURN 

C  CHAPTER  lOi  SET  PHASE  1  DENSITY  HERE  NUEN  UUiOla-l  IN  DATA. 
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C  SET  CUSRENT-Z  ^SLAB'  DENSITY,  01,  IF  MSLAB>.T., 

C  EQ.  IFdfSLAB)  CALL  SET(D1,1,NX,1,NY,001,NY,NX}. 

C  SET  NEXT  LA^QER-Z  *SLAB^  DENSITY,  Om,  If  KSLAB^.T.  &  PARAB»F 
C  EO.  IF(HSLA3)  CALL  SET(01H,1>NX,1,NY,U01H,NY,KXK 

C  SET  D(LN(D1))/DP  (IE.  D1DP)  FOR  UNSTEADY  FLOW, 

C  ES.  IF(HSLAB)  CALL  SET(D1DP,1,NX,1,NY,6D1DP,Ny,NX). 

1000  CONTINUE 

IF  (MSLAB)  60  TO  101 

JP1=P1 

JH1=H1H 

JD1»01H 

JWIsWIH 

JVIaVIH 

60  TO  102 

101  JP1»P1 

JH1«H1  - 

JOIaDI 

JW1«W1 

JV1*V1 

102  CALL  6ETWP1,8P,NY,NX) 

CALL  6BT(4H1,6H,Ny,NX) 

CALL  aBT<JW1,6W,NY,NX) 

GALL  GET(aV1,GV,Ny,NX) 

DO  iOS  1X^1, HX 

DO  103  IY«1,NY 

aMS-GHaY,IX)-(0W(IY,IX>»»2^3V«lY,IX)llli2)/2* 

103  6D<1V,XX)»  aP(IY,IX)/<1-1/6AM>^^6HS 
CALL  SBT(J01,1,NX,UHV,(^4a‘.^) 

RETUPN 

C  CHAPTER  11 •  SET  PHASE  2  DENSITY  HERE  HHEN  XRH02»>1  IN  DATA. 

C  SET  CURRENT-Z  ’SLAB'  DENSITY,  D2,  IF  HSLAB«.T., 

C  E6.  IP(HSLAB1  CALL  SET(DZ, 1 ,NX, 1 ,NY.a02,NY,NX) . 

C  SET  NEXT  LARSER-Z  'SLAB*  DENSITY.  D2U.  IF  KSLAB».T.  ft  PARABt^F 
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C  Ed.  mHSLAB)  OilLL  SEt(S2H#miX>1/Ny>Ct02K>NY,NX>. 

a  SET  9CLN<D2))/DP  FOR  UHSXEADY  FLOW, 

C  Ed.  IF(HSLAB)  CALL  SET(D20P,1,IIX,nNY,SD3!}?,N¥,WX). 

1100  CONTINUE 
RETURN 


C  CHAPTER  12i  SET  PHASE  1  VISCOSITY  HERE  WHEN  IEHU1a-1  IN  DATA. 
C  SET  CURRENT-Z  *3LAB»  VISCOSITY  (MUD,  IF  HSLAfla.T., 

C  Sd.  IFCMSLAB)  CALL  SET(HU1,1,NX,1,NY,0VISG,NY,NX>. 

C  SET  NEXT  lABQER^Z  *SLAB*.  VISC.  (HU1H),  IF  HSLAB».T.  &  PARABaP 
C  Ed.  IP(HSLAB)  CALL  SET(NU1H,1,NX,1,NY,GVSCH,Ny,NX). 

C 

G  CHAPTER  ALSO  ACCESSES  WHEN  EMULAM«'-1.0  IN  DATA,  SO  THAT  THE 
C  LAMINAR  VISCOSITY  WHICH  APPEARS  IN  WALL  FUNCTIONS  &  IN  THE 
C  KE*EP  TURBULENCE  MOSEL  (XEMU1-2)  HAY  BE  SET  NOH>CONSTANT. 

'  C  SET  CURREKT-Z  ^SLAB*  VALUE  (1HI1LAM)  WHEN  LAMHU«,T., 

C  Ed.  IP(LAMMU)  CALL  SSTCMU1LAK,1,HX.1,Ny,SVSCL,NY,NX). 


1200  CONTINUE 

GCP«RAIR/(1 .-1/6AMA) 

IP  (MSLAB)  (SILL  (}CT(K1,GH,NY,NX) 

IF  (HSLAB)  CALL  dET(K1H,GR,r/,NX) 

IF  (HSLAB)  CALL  dET(Wl ,dW,NY,HX) 

IP  (HSLAB)  CALL  6ET(W1H,0W,NY,M) 

IF  (HSLAB)  CALL  GET( VI, GV,NY.NX) 

IF  (HSLAB)  CALL  (iEt(V1H,^,NY.NX) 

DO  121  IXttDNX 
DO  121  IY*1.KY 

GTHPa(dH(lY,IX)-dW(IY,IX)H»2/2.-dV(lY,IX»iK2/2.  )/SCP 
1F(GTHP.LT.150.)  GTHP»1S0. 

121  GVlSC(lY,lX)a1.716E-05li(6THP/273.»tM0.66fi 
C12t  IF(GVISC(IY,IX}.L£..8E‘S}  GV1SC(IY,IX}«.8£>5 
IF  (HSLAB)  CALL  S£T(HUI,1,NX,1,NY,GVISC.Ny,H.X) 

IF  (HSLAB)  CALL  seT(ftyiU,UHX,1,NY,0VISC.NY.HX) 
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IF  (LAMMU)  CALL  SET(MU1LAM,1,NX,1,NY,GV1SC,NY,NX) 

RETURN 

C - - - 

C  CHAPTER  13 «  SET  EXCHANGE  COEFFICIENT  (E.C.)  FOR  VARIABLE 
C  INDVAR  WHEN  SIGMA(INDVAR)=-1 .0  IN  DATA. 

C  SET  CURRENT-Z  *SLA3»  E.C.  (EXCO)  IF  MSLAB=.T., 

C  EG.  IF(MSLAB)  CALL  SET(EXCQ,1 ,NX,1 ,NY,GEXCO,NY,NX) . 

C  SET  NEXT  SMALLER-Z  'SLAB*. E.C.  (EXCOL)  IF  LSLAB=.T., 

C  EG.  IF(LSLAB)  CALL  SET(EXC0L,1,NX,1,NY,GEXC0L,Ny,NX) . 

C  SET  NEXT  LARGER-Z  ’SLAB»  E.C.  (EXCOH)  IF  HSLAB^.T., 

C  EG.  IF(HSLAB).  CALL  SET(EXC0H>1,NX,1,NY>GEXC0H,NY,NX). 

C  NOTE:  FOR  MSLAB,  INDVAR=:Un  .  .C4;  FOR  LSLAB,  INDVAR-U1L> .  .C4L 

C  St  FOR  HSLAB,  INDVAR=U1H, .  .C4K.  IF  PARAB=.T.  SET  MSLAB  ONLY. 

C - 

1300  CONTINUE 
RETURN 

C - - - - - 

C  CHAPTER  14 t  SET  INTER-PHASE  FRICTION  COEFFICIENT  (CFP)  HERE 

C  WHEN  ICFIP  =  -1  IN  DATA>  ITS  UNITS  =  FORCE  /  (CELL  X  RELATIVE 

C  SPEED  OF  PHASES). 

C - 

1400  CONTINUE 
RETURN 


C  CHAPTER  15 1  SET  INTSR-PHASE  MASS-TRANSFER  RATE  PER  CELL  (MDT) 
C  HERE  WHEN  IMDOT  =  -1  IN  DATA. 

C - 

1500  CONTINUE 
RETURN 

C - — 

C  CHAPTER  16*  SET  HERE  PHASE  1  &  2  SATURATION  ENTHALPIES 
C  (  HST1  a  HST2)  WHEN  IHSAT  =  -1  IN  DATA. 

C - 

1600  CONTINUE 
RETURN 
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INPUT  FILE  FOR 

H(IZ) 


5.518E+05 

5.071E+05 

4.7nE+05 

4.318E+0S 

4.n6E+05 

4.039E-t>05 

4.016E+05 

4.010E-t-05 

4.006E+05 

4.554E+05 

4.294E+05 

4.225E+05 

4.168E+05 

4.769E-t-05 

4.646E+05 


APPENDIX  £ 

PROGRAM  CALCULATING  LAMINAR  FLOW  QUANTITIES 


W(IZ) 

RO(IZ) 

P(IZ) 

V(IZ) 

7.003E+02 

2.303 

1.424E+05 

4.885E-t-05 

5.741E+02 

2.313 

1 .432E-I-05 

4.044E4-01 

4.617E+02 

2.310 

1.430E+05 

3.256E-I-01 

3.128E-t‘02 

2.293 

1 .416E+05  * 

2.206E-I-01 

2.181E+02 

2.294 

1.416E+0S 

1.536E+01 

1 .725E-I-02 

2.300 

1 .421E+05 

1.210E+01 

1 .564E-t-02 

2.303 

1 .424E-t-05 

1 .094E+01 

1 .519E+02 

2.302 

1 .423E-i-05 

1  .060E+01 

1.S10E+02 

2.300 

1  .422E-I-05 

1.053E+01 

3.734E+02 

2.295 

1 .417E+0S 

2.540E-(-01 

2.878E+02 

2.297 

1 .419E+05 

2.032E-f01 

2.643E-<'02 

2.292 

.1.41SE+0S 

1 .870E+01 

2.470E<t-02 

2.282 

1 .407E+05 

1.742E+01 

4.863E<<-02 

2.242 

1.374E+05 

3.130E+01 

4.447E+02 

1.827 

1  .OAZE-i-OS 

1 .7238+00 
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aEEEtim  & 

LAMINAR  OUTPUT  FLOW  FIELD 

DATA  TAKEN  FROM  DEFAULT. DTA  ON  GROUP  A/C  . 
FILE  MODSTL.FTN  IS  THE  SATLIT  USED. 

BODY-FITTED-CCORDINATE  OPTION  ACTIVE 


FI  ARRAY  IS  DIMENSIONED  TO  >  5000 

MINIMUM  ALLOWABLE. DIMENSION  FOR  FI  =  1318 

THIS  VERSION  OF  PHOENICS  MUST  BE  USED 
IN  ACCORDANCE  WITH  THE  SPRING  1983  PHOENICS 
INSTRUCTION  MANUAL 
(PHOENICS  LAST  AMENDED  ON  04/12/84) 

If-X-X-  PHOENICS  USER  CODE  MARK  1,  ISSUED  BY  CHAM  (U.K.)  LTD.  -K-K-K 
X-X-X-  ON  09.10.81  COPYRIGHT,  CHAM  LTD,  RIGHTS  RESTRICTED  -X-X-X 

BODY-FITTED-COORDINATE  OPTION  ACTIVE 


FI  ARRAY  IS  DIMENSIONED  TO  »  10000 

MINIMUM  ALLOWABLE  DIMENSION  FOR  FI  =  2700 

X-X-X-  PHOENICS  USER  CODE  MARK  1,  ISSUED  BY  CHAM  (U.K.)  LTD.  -X-X-X 
X-X-X-  ON  09.10.81  COPYRIGHT,  CHAM  LTD.  RIGHTS  RESTRICTED  -X-X-X 
FLOW  FIELD  AT,  ISWEEP=  100,  ISTEP»  1 
FIELD  VALUES  OF  M 


IY=25 

3.200E-I-00 

3.200E-1-00 

3.200E4-00 

3.200E'f0O 

3.200E-I-00 

IY=24 

3.200E+00 

3.200E+00 

3.200E-I-00 

3.200E-t-00 

3.200E-«-00 

IY=23 

3.200E-i-00 

3.200E+00 

3.200E-i’00 

3.200E-t-00 

3.200E-«-00 

IY=22 

3.200E-t-00 

3.200E-t-00 

3.200E+00 

3.200E-<-00 

3.200E+00 

IY=21 

3.200E-<-00 

3.20CS+00 

3.200E+00 

3.200E-I-00 

3.200E-I-00 

IY=20 

3.200E’<-00 

3.200E+00 

3.200E'«-00 

3.200E-I-00 

3.200E-<-00 

IY=19 

3.200E-I-00 

3.200E+00 

3.200E+00 

3.200E’l-00 

3.200E-t-00 

IY=18 

3.200E+00 

3.200E-»-00 

3.200E-i’00 

3.200E-I-00 

3.200E+00 

IY=17 

S-EDOE-I-OO 

3.200E-t-00 

3.200E+00 

3.200E+00 

3.200E-t-00 

IY=16 

3.200E+00 

3.200E-i-00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=15 

3.200E-I-00 

3.200E-<-00 

3.200E+00 

3.200E+00 

3.199E+00 

IY=14 

3.200E-i-00 

3.200E-I-00 

.  3.200E+00 

3.200E+00 

3.199E+00 

IY=13 

3.200E+00 

3.200E-i-00 

3.200E+00 

3.200E-f00 

3.199E+00 

IYS12 

3.200E-<-00 

3.200E+00 

3.200E-<>00 

3.200E-I-00 

3.199E+00 

IY=n 

3.200E-<-00 

3.200E-I-00 

3.200E-»-00 

3.200E+00 

3.199E+00 

IY=10 

3.200E-I-00 

3.200E+00 

3.200E-f00 

3.200E-I-00 

3.199E+00 

IY=  9 

3.200E-i-00 

3.200E-i'00 

3.200E'i-00 

3.200E+00 

3.198E+00 

IY=  8 

3.200E-<-00 

3.200E+00 

3.200E-t-00 

3.200E'l-00 

3.198E+00 

IY=  7 

3.200E+00 

3.200E+00 

3.200E-t-00 

3.199E-t>00 

3.195E+00 

IY=  6 

3.200E+00 

3.200E+00 

3.200E-i-00 

3.198E-«-00 

3.18SE+00 

IY=  5 

3.200E-i-00 

3.200E+00 

3.200E+00 

3.196E-I-00 

3.157E+00 

IY=  4 

3.200E-t-00 

3.200E+00 

'3.200E-t-00 

3.19SE+00 

3.135E-I-00 

IY=  3 

3.200E+00 

3.200E+00 

3.200E-<-00 

3.195E+00 

3.119E+00 

IY=  2 

3.200E+00 

3.200E+00 

3.200E-t-00 

3.195E+00 

3.110E+00 

If 

l-l 

3.200E-I>00 

3.200B'I'00 

3.200E+00 

3.195E-t'00 

3.108E-t'00 

IZa 

1 

2 

3  . 

4 

5 

IYS25 

3.200E'»00 

3.200E’t-00 

3.200E+00 

3.200E-»-00 

3.200E-»-00 

IY=24 

3.20OE-fOO 

3.200E-»>00 

3.200E-i'60 

3.200E-^00 

3.200E-fOO 

IY=23 

3.200E-<>00 

3.200E-<’00 

3.200E-I-00 

3.200E-^00 

3.200E4-00 

IY=22 

3.200E-»'00 

3.200E-<>00 

3.200E'<-00 

S.ZOOE-I-OO 

3.200E+00 

IY=21 

3.200E'fOO 

3.200E-I-00 

3.200E+00 

3.199E+00 

3.199E+00 

IY=20 

3.199E+00 

3.199E+00 

3.199E+00 

3.199E+00 

3.199E-<-00 

IY=19 

3.199E+00 

3.199E+00 

3.199E+00 

3.199E-t-00 

3.199E':00 

IY=18 

3.199E+00 

3.199E+00 

3.199E+00 

3.199E+00 

3.198E+00 

IY=17 

3.199E+00 

3.199E+00 

3.199E+00 

3.198E+00 

3.198E+00 

IY=16 

3.198E+00 

3.198E+00 

3.198E+00 

3.198E+00 

3.197E+00 

IY=1S 

3.198E-«-00 

3.198E-(-00 

3.198E+00 

3.197E+00 

3.195E+00 

IY»14 

3.197E+00 

3.197E+00 

3.197E+00 

3.196E+00 

3.192E+00 

IYal3 

3.197E+00 

3.197E+00 

3.196E+00 

3.194E-«-00 

3.187E+00 

IY=12 

3.197E+00 

3.196E+00 

3.195E+00 

3.T90E+00 

3.178E+00 

IY=11 

3.196E-i-00 

3.195E+00 

3.193E+00 

3.183E-t'00 

3.163E+00 
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IY=10 

3.195E+00 

3.194E+00 

3.188E+00 

3.170E+00 

IY=  9 

3.194E+00 

3.191E+00 

3.178E+00 

3.147E+00 

IY=  8 

3,191E+00 

3.183E+00 

3.158E->-00 

3.109E+00 

II 

> 

M 

3.181E+00 

3.160E-t-00 

3.n6E+00 

3.058E+00 

IY=  6 

3.148E+00 

3.099E+00 

3.046E+00 

3.012E+00 

lY*  5 

3.077E+00 

3.027E+00 

3.012E+00 

3.onE+oo 

IY=  4 

3.033E-<-00 

3.002E+00 

3.001E+00 

3.004E+00 

IY=  3 

3.007E+00 

2.993E-^00 

2.995E+00 

2.996E+00 

IY=  2 

2.992E+00 

2.962E-i-00 

2.931E+00 

2.866E-i-00 

IY=  1 

2.430E+00 

1.991E+00 

1.601E+00 

1.086E+00 

IZ= 

6 

‘7 

8 

9 

IY=25 

3.200E+00 

3.200E+00 

3.199E-t-00 

3.199E+00 

IY=24 

3.200E-i-00 

3.200E-f0O 

3.199E-<-00 

3.199E-fOO 

IY=23 

3.200E-i-00 

3.199E-i-00 

3.199E-t-00 

3.199E-(-00 

IY=22 

3.199E+00 

3.199E+00 

3.199E+00 

3.198E<f00 

IY=21 

3.199E+00 

3.199E+00 

3.198E+00 

3.196E-t-00 

IYS20 

3.199E+00 

3.198E-<-00 

3.196E+00 

3.194E<fOO 

IY=19 

3.198E+00 

3.197E+00 

3.194E+00 

3.190E-I>00 

IY=18 

3.197E+00 

3.19SE+00 

3.190E-I-00 

8.185E-t-00 

lYal7 

3v196E-(-00 

3.192E-»‘00 

3.18SE+00 

3.176E+00 

IYa16 

3.194E't>00 

3.187E+00 

3.176E+00 

3.163E+00 

IY=15 

3.190E+00 

3.179E+00 

3.163E+00 

3.14SE+00 

IY=14 

3.183E+00 

3.167E+00 

3.144E+00 

3.121E-I-00 

IY=13 

3.173E+00 

3.150E-l'00 

3.120E’i-00 

3.094E-t'00 

IYS12 

3.156E+00 

3.125E-»-00 

3.091E+00 

3.065E-*-00 

IY=11 

3.132E+00 

3.095E+00 

3.062E+00 

3.041E+00 

IY=10 

3.100E+00 

3.063E+00 

3.036E+00 

3.024E+00 

IY=  9 

3.063E4-00 

3.034E-t-00 

3.019E+00 

3.013E+00 

IY=  8 

3.030E+00 

3.015E+00 

3.010E+00 

3.009E+00 

IY=  7 

3.01CE+00 

3.007E+00 

3.007E+00 

3.008E'f00 

IY=  6 

3.005E-<-00 

3.006E-(-00 

3.006E4-00 

3.007E+00 

IY=  5 

3.008E-t-00 

3.007E+00 

3.008E-I-00 

3.009E-«-00 

IY=  4 

3.001E-t-00 

3.001E+00 

3.001E+00 

3.002E-I-00 

IV=  3 

2.987E+00 

2.983E-i’00 

2.981E+00 

2.979E+00 

lY*  2 

2.7S3E+00 

2.713E+00 

2.678E+00 

2.644E-I-00 
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3.139E+00 

3.104E+00 

3.062E+00 

3.024E+00 

3.005E+00 

3.009E+00 

3.003E+00 

2.991E+00 

2.803E-I-00 

7.575E-01 

10 

3.199E+00 

3.199E-t-00 

3.198E-t-00 

3.197E+00 

3.195E+00 

3.192E+00 

3.187E+00 

3.180E-t-00 

3.169E+00 

3.153E+00 

3.132E+00 

3.106E-<-00 

3.078E+00 

3.052E+00 

3.032E-<-00 

3.019E+00 

3.013E+00 

3.010E+00 

3.009E+00 

3.009E+00 

3.011E+00 

3.004E-i-00 

2.980E-«-00 

2.64SE-t-00 


IY=  1 

5.988E-01 

5.427E-01 

IZ= 

11 

12 

IYs2S 

3.199E+00 

3.199E+00 

IY=24 

3.198EiOO 

3.198E+00 

IY=23 

3.198E-t-00 

3.198E-t-00 

IY=22 

3.196E-t-00 

3.196E+00 

IY=21 

3.194E+00 

3.194E+00 

IY=20 

3.190E-i-00 

3.190E-t-00 

IY=19 

3.185E+00 

3.184E-i‘00 

IY=18 

3.176E+00 

3.175E+00 

IY=17 

3.163E-«-00 

3.162E<t-00 

IY=16 

s.ueE-t-oo 

3.144E+00 

IY=15 

3.123E-t-00 

3.120E+00 

iy=14 

3.096E-^00 

3.093E-i-00 

IY=13 

3.088E+00 

3.066E+00 

IY=12 

3.045E+00 

3.043E-t-00 

IY=11 

3.028E-i-00 

3.028E+00 

IY=10 

3.018E-t-00 

3.019E+00 

.IY=  9 

3.014E-»‘00 

3.016E+00 

M 

•< 

II 

09 

3.012E-t>00 

3.015E+00 

IY=  7 

3.011E'»-00 

3.014E+00 

IY=  6 

3.011E+00 

3.013E+00 

IY=  5 

3.012E<i-00 

3.014E+00 

IY=  4 

3.004E<<>00 

3.007E+00 

IY=  3 

2.976E+00 

2.978E'»-00 

lYa  2 

2.606E-<-00 

2.597E+00 

IY=  1 

9.991E-01 

9.179E-01 

IZ= 

16 

17 

IY=2S 

3.194E+00 

3.194E+00 

IY=24 

3.154E-I-00 

3.1S4E+00 

IY=23 

3.077E+00 

3.078E+00 

IYa22 

2.972E+00 

2.973E+00 

IY=21 

2.846E-i-00 

2.849E-t-00 

IY=20 

2.707E+00 

2.712E+00 

IYS19 

2.561E-i-00 

2.569E-I-00 

5.271E-01 

S.239E'01 

1.296E+00 

13 

14 

15 

3.199E+00 

3.199E+00 

3.199E+00 

3.198E+00 

3.198E-t-00 

3.198E+00 

3.198E-<-00 

3.198E-(>pO 

3.198E+00 

3.196E-t'00 

3.196E+00 

3.196E+00 

3.194E4-00 

3.194E+00 

3.194E+00 

3.190E-I-00 

3.190E-<-00 

3.190E+00 

3.184E+00 

3.184E+00 

3.184E-t-00 

3.174E+00 

3.174E+00 

3.17SE+00 

3.161E+00 

3.160E-t-00 

3.161E+00 

3.142E-t-00 

3.141E+00 

3.143E+00 

3.118E+00 

3.117E+06 

3.119E+00 

3.091E+00 

3.090E-<-00 

3.093E+00 

3.065E4-00 

3.064E+00 

3.068E-l’00 

3.043E+00 

3.044E-t-00 

3.049E-t-00 

3.029E-»-00 

3.031E+00 

3.037E+00 

3.022E-t-00 

3.024E-«>00 

3.031E-t-00 

3.019E-t-00 

3.022E'^00 

3.029E+00 

3.018E't-00 

3.02tE-t>00 

S.OESE+OO 

3.017E+00 

3.020E-f0U 

3.028E-<‘00 

3.017E+00 

3.021E+00 

3.030E+00 

3.019E+00 

3.030E4-00 

3.052E’t-00 

3.013E-»'00 

3.038£-»-00 

3.077E+00 

2.986E+00 

3.033E-»’00 

3.081E-t>00 

2.599E+00 

Z.GSeE-i-OO 

2.738E-fOO 

8.S83E-01 

1 .695E-<‘00 

1.603E-«-00 

18 

19 

20 
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IY«18 

2.412E+00 

2.424E+00 

IY=»17 

2.262E-e-00 

2.279E-i>00 

IY=16 

2.112E-i’00 

2,137E+00 

IY=15 

1.963E-<-00 

1.996E-t-00 

IY®14 

1.819E+00 

I.ESEE+OO 

.IY=13 

1.683E-t>00 

1.728E-I-00 

IY»12 

1 .562E-<>00 

1.6Q9E+00 

IY»11 

1 .458E-i’00 

1 .503S+00 

IY=10 

1 .368E+00 

1.411E-t-00 

IY=  9 

1 .291E+00 

1 .330E+00 

IY=  8 

1 .222E-t'00 

1 .257E+00 

lY®  7 

1.160E+00 

1.189E-I-00 

lY®  6 

1.104E'»>00 

1.126E-t-00 

IY=  5 

1 .079E+00 

1.091E<t-00 

IY»  4 

1.087E-t-00 

1.09SE-»>00 

lY®  3 

1.112E+00 

1.il6E<l-00 

• 

IY«  2 

1  .OSSE't-OO 

1.040E-I>00 

lY*  1 

5.906E-01 

6.047E-01 

ZZ® 

21 

22 

FIELD  V/^UES  OF  T  (t««peratur«) 

ZY®25 

1 .990E<»<02 

1.990E-I*02 

1.99QE4>02 

i.ooosm 

1.990Em 

IY»24 

1.990E+02 

1.990E+02 

1.990E'»’02 

1.990Em 

1.990Em 

IY»23 

1.990E<t>02 

1 .990E+02 

1.990Em 

1.990Em 

1.990Em 

IYa22 

1.990E-«'02 

1 .990E>02 

1.990Em 

1.990E+02 

1.990E4>02 

IYS21 

1.990E-t>02 

1.990Em 

1.990E4-02 

1.990E+02 

1.990Em 

IY®20 

1.990Em 

1.990E-t'02 

I.OOOEm 

1.990E'»-02 

1.990Em 

IY=19 

1 .990E+02 

1 .990E+02 

1.990E+02 

1.990Em 

1.990Ef02 

IYal8 

1.990E402 

1 .990E-»-02 

1.990E-i-02 

1 .990E4>02 

1 .990E-I-02 

IY=17 

1.990E'i-02 

1.990E+02 

1.990Em 

1.990E4>02 

t.991E+02 

lYaie 

1 .990E-»-02 

1.990E>02 

1.990E-«-02 

1 .990B+02 

1.991  Em 

lYalS 

1.990E'»-02 

1.990E+02 

1.990E+02 

1.990E4-02 

1.991  Em 

IY-14 

1.990E-I'02 

1 .990E-i-02 

1.990Em 

1.990E-»-02 

1.991  Em 

IY®13 

1.990E-*-02 

1.990E-»>02 

1,990E-l-02 

1.990E+02 

1.992Em 

IY=12 

1 .990E-f02 

1.990E-»>02 

1.990E4-02 

1 .990E-»-02 

1.992E4-02 

IY=n 

1.990E-t‘02 

1 .990E+02 

1.990E4-02 

1.990E+02 

1.992£m 
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iy=io 

1.990E+02 

1 .990E+02 

1.990Em 

1.990Em 

1.993Em 

iy=  9 

1.990E-i'02 

1.990Em 

1.990Em 

1.990Em 

1.993Em 

iy=  8 

1.990E-I-02 

1.990E+02 

1.990Em 

1.990Em 

1.995Em 

iy=  7 

1.990E-t-02 

1.990Em 

1.990E+02 

1.991Em 

1 .999E+02 

iy=  6 

1.990E-(-02 

1 .990E-i-02 

1.990Em 

1.993Em 

2.017Em 

iy=  5 

1.990E+02 

1.990Em 

1.990Em 

1.997Em 

2.073Em 

iy=  4 

1.990E-t-02 

1.990E+02 

1.990Em 

1 .999E+02 

2.117E+02 

iy=  3 

1.990E+02 

1.990Em 

1.991  Em 

1.999Em 

2.153Em 

iy=  2 

1.990E+02 

1.990Em 

1.991  Em 

1.999Em 

2.172Em 

lya  1 

1.990E-(-02 

1.990Em 

1.991Em 

1.999Em 

2.176Em 

IZs 

1 

2 

3 

4 

5 

iy=25 

1.990E-t-02 

1.990Em 

1.990Em 

1.990Em 

1.990Em 

iya24 

1.990E-t‘02 

1.990Em 

1 .990E4-02 

1.990Em 

1.990E+02 

iy=23 

1.990E-t-02 

1.990Em 

1.990Em 

1.990Em 

1 .990E-«-02 

iya22 

1.990E'(>02 

1 .990E't-02 

1.991E+02 

1.991  Em 

1.991Em 

iy=2i 

1.991E+02 

1.991Em 

1.991  Em 

1 .991E'«-02 

1.991Em 

iy=20 

1.991  Em 

1.991  Em 

1.991  Em 

1.991  Em 

1.992Em 

iy3i9 

1.992Em 

1.992Em 

1 .992E+02 

1.992Em 

1.992Em 

iy«i8 

1.992E-I-02 

1.992Em 

1.992Em 

1.992Em 

1.993Bm 

iy=i7 

1.993Em 

1.993Em 

1.993Em 

1.993Em 

1.994Bm 

iy«i6 

1.994Em 

1.994Em 

1.994Em 

1.994E+02 

1 .996E-f02 

iy=i5 

1.994Em 

1.995Em 

1.995Em 

1 .996E<«>02 

1 .999E+02 

IYs14 

1.995Em 

1.99SEm 

1.996Em 

1.998Em 

2  003Em 

iyai3 

1,996E+02 

1 .997E+02 

1 .998E'i>02 

2. 00  ism 

2. 01  OEm 

IY=12 

1.997Em 

1.998Em 

Z.OOOEm 

2.007Em 

2.021B-<-02 

iy=ii 

1 . 999E+02 

1,999Bm 

2.004E^02 

2.016Em 

2.038Em 

iy=io 

2.000Em 

2.002£m 

2.012E-l’02 

2.033E4-02 

2.063Em 

IY»  9 

2.003E-t'02 

2.007E-^02 

2.027S-«-02 

Z.OSOE-t-OZ 

2.09SEm 

lYa  e 

2.008Em 

2.018Em 

Z.OSSE^-OZ 

2.097Em 

2.128Em 

IY=  7 

2.022E+02 

2.045E+02 

2.100E^02 

2.136E4-02 

2.149E+02 

lYa  6 

2.065£-^02 

2.108E+02 

E.ISIE-t-OZ 

2.1S6Em 

2.152E-i>02 

IY=  5 

2.134Em 

2.148E+02 

2.144Em 

2.143Em 

Z.KSE-i-OZ 

lYa  4 

2.167Em 

2.165E+02 

2.157E+02 

2.157Bi02 

2.160Em 

IY=  3 

2.178E+02 

2.173E+02 

2.167E+02 

2.171E+02 

2.178Em 

1Y»  2 

2.181E-»-02 

2.21  OEm 

2.244E4-02 

2.328E-*>02 

2.404Em 
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IY»  1 

2.759S’l-02 

3.0a5E<i-02 

3.288E+02 

3.456E+02 

3.503E+02 

IZ= 

6 

7 

a 

9 

10 

IY=25 

1.990E+02 

1.990E^02 

1.991E+02 

1.991E+02 

1.991E+02 

IY=24 

1.990E-i-02 

1.9908+02 

1 .991E+02 

1;991E+02 

1.991E+02 

IY=23 

1.990E-<’02 

1 .991E+02 

1.991E+02 

1 .992E+02 

1.992E+02 

IY=22 

1.991E+02 

1 .991E+02 

1 .992E+02 

1.993E+02 

1.993E+02 

IY=21 

1.991E+02 

1.992E+02 

1.993E+02 

1.994E+02 

1.99SE+02 

IY=20 

1.992E+02 

1.993E+02 

1.995E+02 

1.996E+02 

1.998E+02 

IY=19 

1.993E-<’02 

1.995E+02 

1 .99aE+02 

2.000E+02 

2.003E+02 

iY=ia 

1,994E+02 

1 .997E+02 

2.002E+02 

2.006E+02 

2.009E+02 

IY=17 

1.996E-^02 

2.001E+02 

2.009E+02 

2.014E+02 

2.020E+02 

lYsie 

2.000E-<-02 

2.007E+02 

2.019E+02 

2.025E+02 

2.033E+02 

lYalS 

2.005E+02 

2.016E+02 

2.032E+02 

2.042E+02 

2.052E+02 

IY=14 

2.013Em 

2.029E+02 

2.051E+02 

2.062E+02 

2,074E+02 

IYa13 

2.025E4>02 

2.047E+02 

2,073E+02 

2.08SE+02 

2.096E+02 

IY=12 

2.043E+02 

2.070E+02 

2.097E+02 

2.107E+02 

2.116E+02 

IY*n 

2.067E+02 

2.096E+02 

i.118E+02 

2.125E+02 

2.130E+02 

IY=10 

2.095E’t^02 

2.120E+02 

2.134E+02 

2.136E+02 

2.137E+02 

lYs  9 

2.123E‘«’02 

2.138B+02 

2.142E+02 

2.142E+02 

2.140E+02 

lY*  8 

2.143B’t-02 

2.146E+02 

2.146B+02 

2.144E+02 

2.142E+02 

IY=  7 

2.1S0E-»-02 

2.149E+02 

2.14aE+02 

2.146E+02 

2.144E+02 

IY=  6 

2.150E’»'02 

2.1S0E+02 

2.149E+02 

2.147E+02 

2.14SE+02 

lYa  5 

2.146E4>02 

2.146B+02 

2.14SE+02 

2.143E+02 

2.142E+02 

IY«  4 

2.161E402 

2.161E+02 

2.160E+02 

2.1S8E+02 

2.1S8E+02 

lYs  3 

2,182Em 

2.186E+02 

2.1888+02 

2.189E+02 

2.1$OE+02 

IY»  2 

2.459E-»-02 

2.S00E+02 

2.534E+02 

2.565E+02 

2.566E+02 

lYa  1 

3.514E+02 

3.517B+02 

3.517Em 

3.516E+02 

3.4aiE+02 

IZ= 

11 

12 

13 

14 

15 

IY=25 

1.991E<-02 

1.991E+02 

1.991E+02 

1 .991E+02 

1 .991E+02 

IY=24 

1.991E+02 

1.991E+02 

1 .991B+02 

1 .991E+02 

1.991E+02 

1Y=23 

1.992E'f02 

1.992E+02 

1 .992E+02 

1.99aE+02 

1.992E+02 

IY«22 

1.993E+02 

1 .993E+0?. 

1.993E+02 

1.993E+02 

1 .993E+02 

1Y«21 

1.99SE'»-02 

1.99SE+02 

1 .995E+02 

1.995E+02 

1 .994E+02 

IY=20 

1.998Em 

1.999E+02 

1.999E+02 

1.998E+02 

1 .997E+02 

IY“19 

2.003E4-02 

2.003E+02 

2.004E+02 

2.003E+02 

2.001E+02 

91 


IY=18 

2.010E-(>02 

2.011E+02 

z.oiiEm 

2.010E+02 

2.008Em 

IY=17 

a.oaoEm 

2.021E+02 

2.022E+02 

2.021E-t-02 

2.018E-I-02 

IY=16 

2.034E-I-02 

2.036E+02 

z.oseEm 

2.036E+02 

2.032E-i-02 

IY=1S 

2.053E+02 

2.054Em 

2.055Em 

2.055E-i-02 

2.049Em 

IY=U 

2.075E-t-02 

2.076Em 

2.077E+02 

2.077E+02 

2.070E-<>02 

IY=13 

2.097E-t-02 

2.098Em 

2.097Em 

2.097Em 

2.089E-»-02 

IY=12 

a.iisE+oa 

2.115Em 

2.114Em 

2.113Em 

2.104Em 

IY=n 

a.iaaEm 

2.126E+02 

2.124E+02 

2.123Em 

2.114E+02 

lYalO 

2.135E-«-02 

2.132Em 

2.129E+02 

2.127E+02 

2.119E+02 

lYa  9 

2.um*02 

2.135E+02 

2.131E>02. 

2.129Em 

2.121Em 

M 

09 

2.139E<*-02 

2.136Em 

2.132Em 

2.130E+02 

2.123Em 

lY®  7 

2.141E4>02 

2.138Em 

2.134Em 

2.132Em 

2.124Em 

lY®  6 

2.143E-»-02 

2.140E<«-02 

•2.135Em 

2.131Bm 

2.122Em 

IY=  5 

2.140Em 

2.137E+02 

z.isoEm 

2.114Em 

2.094Em 

n»  4 

2.156E'»02 

2.152Em 

2.141Em 

2.102Em 

2.080Em 

IY«  3 

2.193E4>02 

2.190Em 

2.175Em 

2.094B'(>02 

2.112Em 

IY»  2 

2.605Em 

2.613E-t-02 

2.6Q5E>02 

2.470E4^02 

2.516Em 

lY®  1 

3.503E-t>02 

3.499E4>02 

3.488Em 

‘  3.236Em 

3.304Em 

1Z» 

16 

17 

18 

19 

20 

IY®25 

2.002E^02 

2.002Em 

IY®24 

2.091E>02 

2.091Em 

iy®23 

2.25SE^02 

2.2SSE402 

IY*22 

2.476E-I-02 

2.476E-»>02 

IY®ai 

2.729E>Q2 

2.729Em 

IY®20 

2.994E'i-02 

2.994B+02 

IY«^9 

3.2S6E>02 

3.2S7Em 

1Y»18 

3.510Et02 

3.S07E+02 

IYa17 

3.747E+02 

3.742E+02 

1Y®16 

3.967E+02 

3.9S7Em 

IY®15 

4.170E+02 

4.151E+02 

lYa14 

4.355E4>02 

4.320Em 

IY®13 

4<S18E4-02 

4.4S6Em 

1Y®12 

4.6S5E4>02 

4.546Em 

lY®!! 

4.76aE-»>02 

4.S77E+02 

IY=10 

4. 861  Em 

4.532Em 

IY»  9 

4.937Em 

4.381E+02 

IY=  8 

5.001E-»-02 

4.078E-f02 

lY**  7 

s.oseEm 

3.546E'»02 

lYa  6 

s.iosEm 

2.656E+02 

IY=»  5 

5.128Em 

1.176E+02 

IY=  4 

5.123E4-02 

4.260EH<01 

lYs  3 

s-oesE+oa 

-7,99eE+00 

lYa  2 

4.754E+02 

-2.779E+01 

IY»  1 

3.969E<t>02 

-1.017E+01 

IZ= 

21 

22 

£U)  VALUES  OF  HI 

lYs2S 

e.lSOE^OS 

6.150E>05 

e.isoBtos 

e.lSOE’t'CS 

6.150E+0S 

IYa24 

e.isoEfos 

6.150E>05 

6.150E+05 

6.150B>05 

6.150E-<>05 

IY»23 

6.150E4>05 

6.150E4>05 

S.1S0E-i>05 

6.150E<t>05 

e.lSGE^OS 

IYs22 

6.150E405 

6.150E^QS 

6.150B4>05 

6.150E4^0S 

e.isoEm 

1Y®21 

6.150E«0S 

6.150E>OS 

6.150E405 

6.1S0B405 

6.1S0E40S 

XY»20 

e.rsoE^os 

6.150E405 

6.150E405 

e.lSOBfOS 

e.isoEm 

IY*19 

6.1SOEtOS 

6.150E^05 

6.1S0E^05 

e.lSOB^QS 

6.150E-»05 

1Y«18 

6.1S0B40S 

6.1S0E40S 

6.150E40S 

6.150B40S 

e.150E40S 

IY«17 

6.150Em 

e.tSOB^OS 

e.tsoE^os 

6.150Bm 

6.1$0Em 

IY«16 

6.1S0E^05 

■6.1S9E405 

6.150B>05 

6.150E^05 

6.150Em 

IY«1S 

6.1S0S40S 

e.lSOB^OS 

6.150E+05 

6.1S0E-t>0S 

e.isoEm 

IY<*14 

e.lSOEtOS 

e.isoE^os 

e.lSOB^OS 

6.150E^05 

O.ISQE^OS 

XY«13 

6.1S0B4>0S 

6.1S0E^0S 

6.1SOB405 

O.ISOB^OS 

6.150E*0S 

XY“12 

6.1S0E*0S 

e.tsoB^os 

e.isoB-t-os 

6.tSO£-t>OS 

6.150E^05 

XY«n 

6.1S0E>0S 

6.150E+05 

6.1S0E+95 

6.15uE^OS 

S.ISOE^OS 

lY^lO 

6.1S0E40S 

G.ISOE^OS 

6.1S0E405 

6.1S0Em 

6.1S0E^05 

XY»  9 

6.150Ef0S 

6.1S0E^05 

6.1S0E405 

6.150E<»05 

8.1S0E>05 

XY*  8 

e.lSOE^OS 

e.isoEm 

6.150E4^05 

6.1S0E4>0S 

6.1S0E4^0S 

•< 

it 

d.lSOE^OS 

6.1S0E40S 

6.1S0£«05 

6.150E4^05 

6.1SO£t05 

IY«  6 

6.150E>0S 

6.1S0E«05 

6.150E4>05 

6.150Et05 

6.150Et05 

XY«  5 

6.1SOB4>05 

6.1S0Em 

e.lSOE^OS 

e.isoE^os 

e.lSOE^OS 

II 

> 

6.150E4-05 

6.1S0E>0S 

6,1S0E+05 

6.150E4>0S 

6.150E4>0S 

lYa  3 

6.150E4^0S 

6.1S0E4^0S 

6.150E-f05 

6.1SOE«^05 

6.1S0E+05 

XYa  2 

6.150E4>05 

6.!50£>05 

6.150E+05 

6.1S0E>^05 

e.lSOE-^OS 
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IY»  1 

6.150E+05 

6.150E405 

6.150S-<>05 

6.150E-f05 

6.150E-t-05 

IZ* 

1 

2 

3 

4 

5 

IY=2S 

6.150E+05 

6.150E->-05 

G.ISOE’i'OS 

6.150E-t-05 

6.1S0E+0S 

IY«24 

6.150E+05 

6.150E+05 

G.isOE+OS 

6.1S0E+05 

6.150E+05 

IY*23 

e.lSOE-t’OS 

6.1S0E+0S 

6.150E+05 

6.1S0E-t-05 

6.150E+05 

IY=22 

e.lSOE+OS 

6.150E-«>05 

6.1S0E+05 

6.150E+0S 

6.t50E+0S 

IY®21 

6.150E+05 

6.1S0E+05 

6.150E+05 

6.150E+05 

6.150E+05 

lYaZO 

6.TS0E+05 

6.150E-t-05 

e.lSOE-t'OS 

6.150E+05 

6.150E+05 

IY=t9 

G.ISOE-i’OS 

6.150E•^05 

6<150E+05 

6.150E-t>QS 

6.150E+0S 

IY=5l8 

6.150E4^05 

6.150E+05 

6,150E+05 

G.150B+05 

6.150E+05 

lY=sl7 

6.150E+05 

6.150E<(05 

6.1SOE+05 

e.ISQE^OS 

6.150E+05 

IY=16 

6.1SQE'i>05 

6.150E-<>05 

6.150E+0S 

6JS0E+05 

6.150E+OS 

IY=15 

6.150E+05 

8.150r+85 

6.150E4>0S 

6.150Et05 

6.150E+05 

IY=14 

6.150E+05 

6.150E^05 

6.IS0E+05 

6.1S0E4^05 

6.150E+QS 

IY=13 

e.lSOE-fOS 

6.150E+05 

G.ISOE’t^OS 

6.150E't>05 

6.150E't>05 

IY=»12 

6.1S0E4-0S 

6.1SOE>05 

6.150E4-05 

6.150E^Q5 

6.150E+OS 

IY«11 

6.1S0E^0S 

6.150E40S 

e.isoEm 

6.1S8E>0S 

6.1S0E405 

IY310 

6.1S0E40S 

6.1S0E4>0S 

6.150Ei>05 

6.158E4>05 

6.150E40S 

lY®  9 

6.1S0E^05 

G.ISOE-I-OS 

G.ISOEm 

6:t50E-t>0S 

GOS0B40S 

1Y»  8 

6.15aE4>0S 

6.150E4Q5 

6.1S0E4^05 

6.1506>0S 

6.150E405 

lY*  7 

6.150E>0S 

G.isoem 

6.tS9E>05 

G.ISOE^OS 

6.1S0E48S 

XY«*  6 

e.isoE^os 

6.150E+05 

*  6.1SOE+05 

6.1S0E+05 

e.isosm 

lY®  5 

6.1S8E40S 

6.1S0E4>0S 

6.1S0E+05 

G.ISOE^OS 

G.150E40S 

IY*=  4 

e.isoE^os 

G.tSOE^OS 

G.isoe^os 

6.1S0E+05 

6.150E+OS 

lY*  3 

6.1S0E>0S 

G.ISOE^OS 

6.149E*9S 

6.145E4^05 

6J41E+0S 

IY=  a 

6.144E^05 

6.n4E+0S 

6.075E+05 

6.001S4-05 

S.935E405 

IY»  1 

S.SISE^OS 

S.071E+OS 

4.7nE>05 

4.3I8£<)^0S 

4.n6£4^S 

I2» 

6 

7 

8 

9 

10 

IY®25 

6.150E+0S 

6.150E«0S 

G.iSOEm 

6.1S0E4^05 

6.1S0E40S 

IY=24 

6.1S0E^0S 

6.1S0E>0S 

6.1S0E40S 

6.1SOE+OS 

6.1S0E40S 

IYs«23 

6.1S0E40S 

6.1S0E40S 

6.lSOEm 

6.150E4>05 

6.1SOE40S 

IYa22 

e.lSOE^OS 

6.t$0E+05 

G.lSOEm 

6.1S0E4^0S 

6.1S0E40S 

iY®21 

e.tsoE^os 

6.150E^05 

G.ISOE^ 

6.150E4>05 

6.15dE405 

tY=20 

6.159E+05 

G.ISOEtOS 

6.150E^Q5 

G.ISOE^OS 

G.150E40S 

IY®19 

6.1S0E^05 

6.Y50E>05 

G.ISOE^OS 

G.ISOE^OS 

6.1S0E405 
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IYS18 

6.150B+05 

d.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

IY=17 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

IY=16 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

6.1S0E+05 

IY=15 

6.150E+05 

6.150E+05 

6.150E+OS 

6.150E+05 

6.150B+05 

IY=14 

6.150E+05 

6.150E+0S 

6.1308+05 

6.150E+05 

6.150B+05 

IY=13 

6.150E+05 

6.150E+05 

6,150E+OS 

e,150E+05 

6.150E+05 

IYS12 

6.150E+05 

6.150E+05 

6.1S6S+05 

6.150E+0S 

6.150E+05 

IY=n 

6.150E+05 

e.ISQa+OS 

6.1S0E+0S 

6.150E+05 

6.150E+05 

lYalO 

e.isoE^as 

e.l50E+C5 

6.150B+05 

6.150E+05 

6.150E+05 

XY^  9 

6.tS0£+0S 

e.TSOE+SS 

6.150E+05 

$.1§QB+0S 

6.150E+0S 

lY^  8 

§.lS8E+e5 

6.150E+05 

6. 1S0£+0S 

6. 1508+05 

6.150S+05 

XY*  7 

8.1SOB+05 

8.15&B+«5 

6,150E+05 

6.150E+05 

6.150E+05 

lYa  8 

6.1368+85 

6.1508+05 

6.1S0E+05 

6,lS0B+05 

6.150B+05 

IV®  S 

6.1SOE+0S 

6.1S0S+0S 

6.1S0E+05 

6..150E+05 

6,150B+0S 

iY=  4 

6.150E+6S 

6.1438+05 

6.149S+0S 

&,149E+0S 

6.149E+05 

lY®.  3’ 

5,|S?E+0S 

6.134E+05 

6,130E+0S 

6.127E+05 

6.1268+05 

lY®  2 

5.8838+05 

5.6388+05 

5.797S+0S 

5.757E+05 

5.755E+0S 

XY»  1 

4.0JS9B+05 

4.816E+QS 

4.010E+OS 

4.006E+05 

4,SS4E+05 

12® 

11 

12 

13 

14 

15 

IY»2S 

8.150B+0S 

6.1S0E+0S 

6.1S08+0S 

6.1108+05 

6.1508+85 

XY»24 

6.1S0E+0S 

6,1S0E+0S 

6.1S0E+OS 

6.150E+05 

6.1508+05 

IY®23 

6.1S0E+05 

6.1S0E+0S 

6.1S0E+0S 

6.1S0E+0S 

6. 1508+05 

lVe22 

6,1SOS+OS 

6.1508+0S 

6.150E+OS 

6.1S0E+05 

6.1S0E+0S 

XY®21 

8.l56S+eS 

6,1508+05 

6.1S0E+0S 

6.1S0E+0S 

6.1SOS+OS 

iYs2d 

6.150E+05 

6.150E+OS 

6.1S0E+05 

6.1S0E+0S 

6.150E+0S 

XY®19 

6.150E+0S 

6.1SOE+OS 

6.150E+0S 

6.1SOE+OS 

6.150E+0S 

xy®i8 

6.1S0E+05 

6.1S0E+0S 

6.1S0E+0S 

6.150E+05 

6.150E+05 

IY=17 

8.1SOE+05 

6.150E+05 

6.150E+05 

6.1S0E+05 

6.1S0E+0S 

XVa16 

6-1S0E+05 

6.150E+05 

6.1508+05 

6.1S0E+0S 

6.1S0B+0S 

XY=1S 

6.150E+0$ 

6.150E+05 

6.150E+05 

6.1S0E+OS 

6.150E+05 

IV=14 

6.1S0E+0S 

6.150E+05 

6.1S9E+0S 

6.150E+05 

6.150E+G5 

XY=13 

8.1SOE+OS 

6.1 508+05 

6.150E+0S 

6.150E+05 

6.1S0E+0S 

IY=12 

6.1S0E+05 

6.150E+0S 

6.1S0E+05 

6.1S0B+05 

6.150E+05 

IY®H 

6.150E+05 

6.1S0E+05 

6. 1508+05 

6.150E+05 

6.1S0E+05 

XY=10 

6.1S0E+05 

6.150E+0S 

6.1S0E+05 

6.1S0E+05 

6.1S0E+O5 

95 


IY=  9 

e.isoE+os 

6.150E+05 

IY=  8 

6.1SOE+05 

6.150E+05 

IY=  7 

6.1SOE-I-05 

6.150E-«-05 

IY=  6 

6.150E+05 

e.lSOE-t-OS 

II 

Ul 

6.150E+0S 

6.150E-t-05 

1Y=  4 

6.149E+05 

6.149E-t-05 

IY=  3 

6.121E+05 

S.IEOE-fOS 

lYs  2 

3.715E+05 

5.704E+05 

IY=  1 

4.294E-t-05 

4.225E>05 

IZ= 

16 

17 

IYs=2S 

6.150E+05 

6.150E-t>05 

IYS24 

6.150E+05 

6.15CE+qS 

IYS23 

6.150E+05 

6.150E>05 

IYa22 

6,1S0E+05 

d.150£-«-05 

IY=21 

6.150E+05 

6.1SOE+05 

IY=20 

6.150E+05 

6.1S0B+05 

IY-19 

6.1SOE+05 

6.149E+05 

IY«18 

e.lSOE^-OS 

6.148E+05 

IY»17 

6.1S0B+0S 

6.145E+05 

IY=16 

e^SOE-i-OS 

e.iqoE'i-os 

lYatS 

6.150E4>0S 

6.131E+05 

IY“14 

6.150E+05 

6.114E+05 

IYSS13 

6.150E+05 

6.083E'«-05 

IYS12 

6.1S0B+0S 

6.030E+0S 

lY^n 

6.1S0B+(j5 

S.938E+05 

lYsto 

e.isoc-^os 

S.78SB*0S 

IY«  9 

C.ISOEtOS 

S.S32E<^05 

IY»  8 

6.1S0E^05 

5.12SE+05 

r/B  7 

6.150E+0S 

4.471E+0S 

lYsi  6 

6.1S0£«0S 

3.429E+0S 

lYa  5 

6.149E+0S 

1.761E+0S 

lYa  4 

6.142E+05 

9.337E+04 

IYb  3 

6.0Q8E405 

3.912E+04 

IY«  2 

5.677E*05 

1 .068E-)-04 

lYa  1 

4.S28£-*‘0S 

2.236E^03 

6.150E+05 

6.150E-I-05 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

6.150E+05 

6.1SOE+0'' 

6.150E-I-05 

6.150E+0S 

6.150E+C5 

6.150E-t-05 

6.149E+05 

6.149E+05 

6.149E+05 

6.144E+05 

6.119E+05 

6.119E+05 

6.093E+05 

5.694E-t-05 

S.713E+05 

5.686E+05 

4.168E-I-05 

4.769E+0S 

4.646E-i'05 

18 

19 

20 
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FIELD  VALUES  OF  VRES 


IY=25 

O.OOOE-i-00 

O.OOOE+00 

O.OOOE+OO 

0.700E+00 

O.OOOE-t-OO 

IY=24 

1.405E-05 

3.007E-06 

-5.550E-06 

-1.294E-04 

-1 .448E-03 

IY=23 

-1.959E-05 

-4,107E-06 

8.235E-06 

-4.790E-05 

-3.747E-04 

IY=22 

2.043E-05 

-5.721E-07 

-2.893E-05 

-9.892E-05 

-9.914E-05 

IY=21 

-5.591E-10 

3.131E-08 

1.097E-06 

-2.957E-06 

-2.073E-04 

IY=20 

-2.045E-05 

6.139E-07 

2.518E-05 

7.661E-05 

1 .586E-04 

IY=19 

1.929E-05 

5.354E’06 

-2.818E-05 

4.812E-05 

1 .744E-04 

IY=18 

-1 .987E-05 

1 .297E-05 

4.382E-05 

2.561E-05 

3.570E-05 

IYS17 

6.476E-06 

-2. 90 IE-06 

2.098E-05 

-2.651E-05 

-1.329E-04 

IY=16 

1 .378E-05 

-7,195E-0S 

-9.990E-05 

-9.397E-05 

S.056E-06 

IY=15 

-1 .977E'-05 

S.437E-03 

7.14OE-05 

1.332E-04 

1 .717E-04 

IY?5l4 

1,8965-05 

3.793E-05 

1.053E-04 

9.233E-05 

6.895E-05 

IY=«13 

“1 .a45E-05 

-6.689E-06 

9.738E-07 

3.035E-05 

1.767E-04 

IY*12 

1,975E-05 

1.183E-05 

1.163S-04 

1.5C5E-04 

6.171E-04 

IY*n 

3.013E-07 

2.053E-O5 

3.482E-05 

3.487E-04 

1 .6065-03 

IY»10 

“2.003E-05 

-3.403E-05 

1.106E-04 

9.926E-04 

5.410E-03 

IY«  9 

t.904E''05 

2.651E-05 

4.678E-04 

2.726B-03 

1 .6S2E-02 

IY«  8 

1.642E-06 

S.153E-01i 

8.444E-04 

7.499E-03 

5.295E-02 

lY*  7 

-4.829E-06 

2.910E-04 

2.273E-03 

2.092E-02 

1 .693E-01 

II 

> 

•-* 

1.053E-04 

2.549E-04 
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6.130E-f01 

6.067E+01 

6.139E-t-01 

6.069E-«-01 

e.oazE+oi 

6.046E't-01 

5.810E+01 

5.664E-t'01 

2.206E-t-01 

1.536E+01 

9 

10 

0.OOOE■^0O 

O.OOOE-t^OO 

8.774E-02 

1. 2668-01 

2.031E-01 

2.905E-01 

3.776E-01 

S.369E-01 

6.58SE>01 

9.301E-01 

1.120E-^00 

1.569E+00 

1.879E+00 

2.604E-)>00 

3.108£<f00 

4.251E<t>00 

S.057E+00 

6.805E4’00 

8.053E400 

1.062E^01 

1.246E’»01 

1.603E+01 

1,8S7B+01 

2.316E’»>01 

2.638E«01 

3.173E+01 

S.SSfiE-t^OI 

4.081E^01 

4.434E>01 

4.889E«'01 

5.18BE^01 

5.SOCE+01 

5,706E+01 

5.867£4>01 

5.971E+01 

6.023E4>01 

6.049Et01 

6.0S3E^b1 

6.0S2E«01 

6.048E401 

6.059E^01 

6.038E-»>01 

6.045E+01 

6.004E-t^01 

5.999E+01 

S.938E+01 

5.325E+01 

5.2S3E+01 

1.0S3E^01 

2.540E^01 

IZ» 

11 

12 

IY=2S 

O.OOOE+OO 

0.000E-i>00 

IY=24 

1.8nE-01 

1.9S8E-01 

IY»23 

4.099E-01 

4.423E-01 

IYS22 

7,S20E-01 

3,107E-01 

IYa21 

1 .293E-I-00 

1.393E+0O 

IY=20 

2.163E<t>00 

2.326E‘i>00 

IYS19 

S.SSOE-t-OO 

3.811E400 

IY»I8 

5.718E4>00 

6.122E't‘00 

IYs17 

9.000E+00 

9.602E<t>00 

IY=16 

1.37SE-f01 

1.460E<»-01 

IY=1S 

Z.OEIE’I'OI 

2.133E-»^01 

IYs14 

2.827E401 

2.963E>01 

IY*13 

3.726E^01 

3.871E<t>01 

IY*12 

4.S77E+01 

4,702E<»01 

IY*n 

5.262E-»01 

S.352E-^01 

1Y«10 

5.724E+01 

S.776E401 

1Y»  9 

S.965E<»01 

S.987E+01 

lYs  e 

6.046B+01 

6.050E>01 

IY«  7 

6.05^E^01 

6.051E401 

IY«  6 

6.046E+01 

6.04SE'H)1 

XY*  5 

6.046E>01 

6.051E401 

lY*  4 

6.046E401 

o.oeiE-^oi 

IY«  3 

6.012E401 

6.02SE^01 

lY*  2 

5.27aE^01 

5.265E401 

XYa  1 

2.032Et01 

1.870E4>01 

X2a 

16 

17 

XY»25 

O.OOOE^OO 

O.OOOE'^00 

XYa24 

2.563E*01 

3.246E-0i 

1YS23 

5.779E-01 

7,709E-01 

XY=22 

1 . 0S9E400 

1.S22E«00 

XY'^ZI 

1.818E^00 

2.800E«00 

IY«20 

3.032E4CO 

4.892000 

IYs19 

4.946E400 

8.121E<fOO 

XY«18 

7.896000 

1.278E>01 

13 

14 

15 

O.OOOE+OO 

O.OOOE+00 

O.OOOE+00 

2.111E-01 

2.271E-01 

2.430E-01 

4.760E-01 

5.105E-01 

5.461E-01 

8.717E-01 

9.344E>01 

9.998E-01 

1 .497E+00 

1 .603E4-00 

1.716E+00 

2.497E+00 

2.672E+00 

2.860E400 

4.083E+00 

4.363E<l-00 

4.669E-»00 

6.542E+00 

6.976E-I-00 

7.458E't-00 

1.023E-»‘01 

1.087E-»>01 

1.160E<i-01 

1  .S49E-t‘01 

1.639E+01 

1.743E+01 

2.249E4^01 

2.367E-t>01 

2.502E-t>01 

3.101E+01 

3.241E>01 

3.396E-t^01 

4.013E't'01 

4.1S1E’l>01 

4.296E-»01 

4.822E«01 

4.934E+01 

S.OSIE'^OI 

5.436E^01 

5.512E401 

5.587E401 

5.822E401 

5.861E>01 

5.898E401 

e.OOSE^OI 

6.016Et01 

6.027E4-01 

6.052E«01 

6.053B^01 

6.052B401 

e.OSOB^OI 

6.049Ei01 

6.046E401 

6.04SB«01 

6.043E401 

6.029B^01 

6.0S6B^01 

6.039Ef01 

S.S79£t01 

6.064E^01 

*  5.964E+01 

5.160E4^01 

6.021B<»^01 

S.819Et01 

3.630B4^01 

5.248E4^01 

5.0S8£4^01 

1.374E+01 

1.742E>01 

3.130B401 

i.723E+00 

16 

19 

20 
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IY»17 

1 .226E-l'01 

1.897E+01 

IY=16 

1 .837E-«'01 

2.654E-I-01 

lY^lS 

2.624E-«>01 

3.486E-t-01 

IY=14 

3.534E+01 

4.297E+01 

IY=13 

4.425E-«-01 

4.971E+01 

IY=12 

5.150E+01 

S.427E+01 

iY=n 

5.650E+0T 

5.650E+01 

IY*10 

5.928E-»-01 

S.SSSE-t-QI 

IY=  9 

6.035E-»^01 

5.466E4>01 

lYa  8 

6.052E-<>01 

5.086E-t-01 

lY*  7 

6.042£'t>01 

4.463E’t^01 

IY»  6 

5.999E't-Q1 

3.476E'^01 

lYa  5 

5.595E'f01 

1.921E+01 

IY»  4 

4.130E4Q1 

4.419E-^00 

IY»  3 

1.798E+01 

-9.833E-01 

IY«  2 

Z.OSSE'i'OO 

-2.498E4>00 

1Y=  1 

1.738E-01 

-3.098E-»>00 

IZa 

21 
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IY»2S 

8.88SBm 

8.88SE402 

8.885Em 

8.885Bm 

8.88SBm 

1Y®24 

8.885Em 

8.88SB4>02 

B.885Em 

8.86S£m 

8.885B>02 

IY«23 

8.88SCm 

8.885E402 

8.885E402 

a.BBSEm 

B.B8SEV02 

IY®22 

8.e8SE>02 

6.665E«02 

B.885B4>02 

6.8a5B402 

8.B8SE4>02 

IYb21 

8.88SE't>02 

8.88SE402 

d.BBSEm 

8.88SEm 

8.885E>02 

IV®20 

8.88SE4>02 

8.88SEm 

8.88SE^02 

8.8BSEm 

8.885E>02 

IY«19 

8.88SE«02 

a.88SE>02 

8.88SEm 

6.885E402 

8.e84Em 

IY®10 

8.B8SEm 

B.aasE^oz 

B.BBSEm 

a.885B<»02 

8.8e4E402 

IYB17 

8.885Em 

S.BSSEm 

8.a8SEm 

8.88SEm 

8.884E+02 

IY«16 

8.88SE402 

8.88SE^02 

d.aasEm 

8.88SEm 

8.884B402 

IYbIS 

8.8dSE^02 

8.88SE^02 

B.BBSEm 

8.88SEm 

B.8B4E4^02 

IY»14 

8.68SEm 

6.88SE>02 

8.e8SE^02 

B.88SE^02 

8,6Q3B*02 

IYb13 

d.885E402 

8.88SEm 

8.88SEm 

8.88SE402 

B.883Em 

IY®12 

8.88SE«02 

8.885E^02 

8.88SE402 

8.88SEm 

8.8B3E402 

IV=11 

8.88SE4-02 

3.88S£m 

8.885Et02 

8.8B5Bm 

B.SBEE^OZ 

IY=10 

8.885Em 

8.88SEm 

B.885Em 

8.8dSE402 

B.882£4>02 
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IY»  9 

8.885E+02 

8.885E4-02 

IY=  8 

8.885Em 

8.885E+02 

lYa  7 

8.8a5E-»^02 

8.885E4-02 

lYa  6 

8.885Em 

8.885E402 

1Y=  5 

8.885Em 

8.a85E-i>02 

IY»  4 

8.885E-t-02 

8.885E402 

lYa  3 

8.885E<I>02 

8.885E402 

IY=  2 

8.885E-t>02 

8.885E402 

lY*  1 

8.885Em 

8.885E-*>Q2 

IZa 

1 

2 

IY»25 

a.aasEm 

8.835E4-02 

IYa24 

a.aasEm 

8.8a5E402 

IY=23 

8.885Em 

8.885E402 

IYa22 

8.884E+02 

8.884E402 

IYa2l 

8.884Ei^02 

B.884E-H)2 

lYa20 

8.8e3E^02 

8.883E402 

IY-19 

8.8a3E402 

a.8e3E402 

lYaie 

a.aazEm 

a.aazEm 

IYa17 

8.8d1Em 

8.881Em 

1Y»16 

8.e80E^02 

8.880B402 

1Y-1S 

8.879Em 

a.879E402 

IY«t4 

8.87BE«02 

8.878E402 

IY«13 

8.a77E^02 

8.877E402 

lYa12 

8.876E^02 

8.875E402 

lY«t1 

B.a74Et02 

8.e73E402 

XY«10 

8.a72£4>02 

8.870E402 

lY*  9 

8.869Em 

8.864E402 

IY»  a 

8  863e402 

d.850E402 

lYa  7 

8.84SE402 

8.816E402 

IY=  6 

8.791E402 

8.736B402 

IY=  5 

8.702Em 

8.676E402 

IY=  4 

8.655E>02 

8.648E402 

lYa  3 

8.63SE402 

8.634E4^02 

IY»  2 

8.6ieE402 

8.544E402 

IY=  1 

7.003E+02 

5.741Em 

8.885E402 

8.885E402 

8.881E+02 

8.885E402 

8.885E402 

8.879E402 

8.885E402 

8.884E4Q2 

8.873E402 

8.8aSE402 

8.881E402 

8.851E4-02 

8.884E402 

8.876E402 

8.781E+02 

8.884E402 

8.874E402 

8.725E402 

8.8a4E402 

8.873E402 

8.679E402 

a.884E402 

8.873E402 

8.655E402 

8.884E402 

8.873E402 

8.650E402 

3 

4 

5 

8.885E402 

8.885E402 

8.885E402 

a.885E402 

8.885E402 

8.885E402 

8.884E402 

8.884E402 

8.884E402 

8,884E402 

8.ft3*E402 

8.884E402 

a.a84E402 

8.884E402 

8.884E402 

8.883E402 

8.8d3E402 

8.883E402 

8.883E402 

8.882E402 

8.862S402 

8.882E402 

8.882E402 

8.8eiE402 

8.881E402 

B,881E402 

8.880E402 

8.880E402 

8.879E482 

8.877E402 

8.B79E402 

8.878B402 

8.874E402 

8.877E402 

a.B75E402 

8.869E432 

8.875E402 

8.871E402 

8.860E402 

B.872E402 

8.884E402 

a.d47E402 

8.867E402 

8.8S2E402 

d.825E>02 

a.6S7£402 

8.831E402 

8.793E4D2 

B.839E402 

8.798C402 

8.7S1E402 

8.804E402 

8.7S0E402 

8.707E+02 

6.746E402 

a.697E402 

8.673E402 

8.678E402 

d.663S402 

8.662E402 

8.673E402 

8.671E+02 

d.660E402 

&.653E402 

8.6S2E402 

8.649E+02 

d.63aE402 

8.629E402 

8.616E402 

8,454E>02 

8.2S4E402 

8.073E402 

4.617E402 

3.128E402 

2.181Em 
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IZ» 

6 

7 

IY=25 

8.885E-l'02 

8.aa4E-»02 

IY=24 

8.884E<»>02 

8.884E-<>02 

IY=23 

S.SSAE-i-OE 

8.884E-»02 

IY=22 

8.884E'»>02 

8.883E+02 

IY=21 

8.883E+02 

8.882E+02 

IY=20 

8.882E-i>02 

8. 881  Em 

IY=19 

8.881E+02 

8.879E402 

XYalS 

8.879E-»'02 

8.876E^02 

IY=17 

8.877E+02 

8.871Em 

IY*16 

8.873E<»-02 

8.864E402 

IY*15 

8.868E-»^02 

8.852E402 

IY=14 

6.856E't‘02 

8.836E4>02 

IY=13 

8.841Em 

8.813Em 

IY=12 

8.819E402 

8.7a3B+02 

IY311 

8.783Em 

8.749B+02 

lYslO 

8.750Em 

8.71SEm 

lYa  9 

a.712Em 

8.68eEm 

IY»  8 

8.882E402 

8.672Bm 

1Y»  7 

8.666E402 

8.66SEm 

lY*  6 

8.662Em 

8.663Bm 

1Y«  5 

8.667Em 

8.668em 

lY*  4 

8.64eEm 

8.646E<»‘02 

IY»  3 

8.606Em 

8.S98Em 

IY«  2 

7.931E+02 

7.818Em 

lY*  } 

1.72SE+02 

1 .S64Bt02 

12*.’ 

M 

12 

IY«2S 

8.884E«02 

8.8e4Em 

IYe24 

8.883E402 

8.883Em 

IY=23 

8.882E>02 

8.882Em 

IY*22 

e.881E^02 

8. 881  Em 

IY«21 

B.B78E*02 

8.878Bm 

IY<=20 

8.874E^02 

8.874Em 

IYS19 

8.e69E402 

8.866E*02 

IY=18 

8.860Em 

8.859Em 

186 

8 

9 

10 

8.884E+02 

8.884E402 

8.8842402 

8.884E>02 

8.884Em 

8.8832402 

8.883Em 

8. 8832402 

8.8822402 

8.882E-<'02 

8.8822402 

3.8812402 

8.881Em 

8.8802402 

8.8782402 

8. 8782402 

8.8772402 

8.8752402 

8.875E402 

8.8722402 

8.8692402 

8.869E402 

8.8652402 

8.6602402 

8.861Em 

8.8552402 

8.8482402 

8.849E482 

8.840E402 

8.8302402 

8.832Em 

8  819E402 

8.8062402 

8.808£m 

8.793E402 

8.7772402 

8.779E402 

8.762E4Q2 

8.7462402 

8.747B402 

8.730E402 

8.7172402 

8.717Em 

8.704B402 

8.6952402 

8.693Em 

d.6e5E402 

6.6822402 

8.677E402 

8.67$B402 

8.6762402 

d.669Em 

B.670E402 

8.6722402 

8.665B402 

8.667E402 

8.6702402 

8,664£402 

0.666E4O2 

6.668E402 

8»668S402 

8.671E402 

8.6722402 

B.648E402 

8.651E402 

8. 651 2402 

8. 591  Em 

B.SaSE402 

8.5642402 

7.71 7Em 

7.620E402 

7.6ieE402 

1.S19£m 

1.510E402 

3.734E402 

i3 

14 

15 

8.884Em 

8.8d4E402 

8.884Em 

8.d83Em 

d.sasEm 

8.8632402 

8.882Em 

B.082E402 

8.8832402 

8.881Em 

8.881E402 

8.8812402 

a.878Em 

8.8792402 

8.87gE402 

8.&74Em 

6. 8752402 

8.8762402 

8.863Em 

8.8692402 

e.87lE402 

8.858Em 

6.8602402 

8. 8622^^2 

iy«i7 

8.847E402 

3.845E402 

IY=16 

8.828E402 

8.826E402 

IY=15 

8.804£m 

8.802Em 

IY=14 

8,774E+02 

8.772E+02 

IY=t3 

8.743E402 

8.741E402 

IY»12 

8.715E402 

8.715E-t-02 

lYall 

8.896Em 

8.697E+02 

IY=10 

3.684E402 

8.637E+02 

lYs  9 

8.878E402 

8.682£m 

IY=  8 

8.676E+02 

8.68QE-t'02 

IY=  7 

8.673E4Q2 

8.S77E+02 

IY=  6 

8.671E+02 

8.67SEm 

1Y=  5 

8.673E*02 

8.679Em 

lYa  4 

8.SS4E402 

6.6S&E+02 

lY*  3 

8.574E>02 

8.576E+02 

XY*»  2 

7.507E+e2 

7.4aoBm 

iy»  1 

2.a78E*02 

a.643E402 

12® 

16 

17 

XY<*25 

8.870Em 

IY#24 

d.7S9Em 

XY«23 

iy®22 

8.2S7E+02 

XY*21 

7.9tlB+02 

IY*2e 

7.530E^03 

IY«19 

7.l32E>oa 

lYelB 

6-729R+02 

1Y«17 

6.327E^02 

IY®16 

5.927K+W2 

XY*15 

S.531E*02 

XY®t4 

S .  i43Em 

IY»!3 

4.772E^'02 

XY*12 

4.434E+0a 

XY»n 

4.136C«02 

1Y»10 

3.977£m 

XY®  9 

3.052E^02 

8.84SE-(-02 

3.846E402 

8.849E+02 

8.825E402 

8.826E+02 

8.d31E402 

S.SOOE-t-oa 

8.801Em 

8.a07E+02 

8,770E+02 

8.770E+02 

a.778E+02 

8.741E+02 

8.740E4C2 

8.750E+02 

8.7t6E+02 

3.716E+02 

8.727S+02 

a.TOOE+Oa 

8.700E+02 

8.712E+02 

8.691E+02 

8.692E+02 

8.703E+02 

8.637E402 

S.689E402 

8.700E+02 

8.685E402 

8.6873+02 

8,697E+02 

8.683E402 

8.6afE+02 

8.695S+02 

8.6d1Em 

8.686E+(^2 

8.698E+02 

8.6S8E402 

8.708E+92 

e.734E+02 

8.672E+03 

8.723E+02 

S.’SOB+Oa 

8.594£>02 

8.70flE+02 

8.659E+02 

7.478b:*02 

7.702E+02 

7.616E+02 

2.470B+02 

4.S63S+02 

4;447B>0S 

18 

19 

20 
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It 

3.452E+02 

iy=  7 

3.271E+02 

IY=  6 

3.107E+02 

IY=  5 

3.023E+02 

IY=  4 

3.040E+02 

IY«  3 

3.097E+02 

IY=  2 

2.879E+02 

IY=  1 

1.642E-t-02 

IZ= 
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IY=25 

8.885E-i-02 

8.885E+02 

IY=24 

8.885E+02 

8.885E+02 

IY=23 

8.885E+02 

8.885E+02 

IY=22 

8.885E-t-02 

8.885E+02 

IYS21 

8.885E+02 

8.885E+02 

IY=20 

8.885E-t-02 

8.885E+02 

IY=19 

8.885E-(-02 

8.88SE+02 

IY=18 

8.885E+02 

8.885E+02 

IYS17 

8.885Em 

8.885E+02 

IY=16 

d.885E+02 

8.885E+02 

IY=15 

8.885E-»-02 

8.885E+02 

IY=14 

a.SSSE-t-OZ 

8.885E+02 

IY=r3 

8.885E-»-02 

8.885E+02 

IY=12 

8.885E-<-02 

8.885E+02 

IY=n 

d.885E-»-02 

8.885E+02 

IY=10 

8.8&5E-t-02 

8.885E+02 

IY=  9 

8.8852+02 

8.885E+02 

lYo  8 

8.885E+02 

8.885E+02 

IY=  7 

8.885E+02 

8.885E+02 

I\  =  6 

8.885E+02 

8.88SE+02 

IY=  5 

8.885E+02 

8.885E+02 

IY“  4 

8.885E+02 

8.885E+02 

IY“  3 

8.885E+02 

0  885E+02 

IY=  2 

8.885E+02 

8.8&5E+02 

IY«  1 

8.885E+02 

8.88SE+02 

.8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

3.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885E+02 

8.885B+02 

a.885E+02 

8.885E+02 

8.885E+02 

a.885E+02 

8.885E+02 

8.885E+02 

a.8a5E+02 

8.885E+02 

8.8a5E+02 

a.8asE+02 

8.885E+02 

8.885E+02 

8.8aSE+02 

8.885E+02 

8.885E+02 

a.885E+02 

8.885E+02 

8.885E+02 

a.865E+02 

8.885E+02 

8.885E+02 

a.8a5E+02 

8.885E+02 

8.885E+02 

a.885E+.02 

8.685E+02 

8,865E+02 

a.8a4E+02 

8.885E+02 

8.885E+02 

8.883E>02 

8.885E+02 

8.884E+02 

a.877E+02 

d.885E+02 

8.881E+02 

8.855E+02 

8.884E+02 

8.a76E+02 

8.786E+02 

8.884E+02 

a.a74E+02 

a.729B+02 

8.884E+02 

a.873E+02 

a.68t.E+02 

8.084E+02 

a.073E+02 

a.661E+02 

8.834E+02 

a.873E+02 

a.655E+02 
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IZ» 

1 

2 

3 

4 

5 

IY*25 

8.885E+02 

8.885E+02 

8.S85E4-02 

8.a85E-l-02 

a.aasE+oz 

IY»24 

8.885E-i-02 

d.885E-i-02 

8.a85E4-02 

8.885E-i>02 

8.885E+02 

IY=23 

8.885E-<-02 

8.885E-i-02 

8.885E-ta2 

8.885E-i-02 

8.885E-t-02 

IY=22 

8.885E-f02 

8.883E-f02 

8.8S5E+02 

8.885E-i-02 

8.885E-t-02 

IY=21 

8.885E+02 

a.aasE+oa 

8.885Em 

a.aasE+oz 

8.885E+02 

IY=20 

8.885E-t-02 

8.88SE-t-02 

8.885E-i-02 

8.885E-t-02 

8.884E'«'02 

IY=19 

8.885E-t-02 

8.88BE-f02 

8.885E+02 

8.885E-I-02 

8.884E'f02 

IY=»18 

8.3a5E-t-02 

8.885E4-02 

8.885E+02 

8.885E-i-02 

a.884E-t-02 

IY=17 

G.885E+02 

8.885E-t>02 

8.885E+02 

B.884E-t-02 

8.883E+02 

IY=16 

S-SSSE+OE 

8.885E-«>02 

8.885Em 

8.a84E+02 

8.8a2£-t-02 

IY=15 

8.a8SS-*-02 

a.aasE-i-oz 

8.8a4Em 

8.883Em 

8.880Em 

IYsl4 

.  8.885E+02 

a.8asE-t^02 

8.8a4E-»-02 

8.882Em 

8.875E'»-02 

IY=13 

8.885E'f02 

8.885S402 

a.easEm 

8.879Em 

8.868Em 

IY=12 

8.a8SE-t>02 

8.8d4E-<>02 

8.881E<f02 

8.873Em 

a.sssE-t-oa 

IY=11 

d.88SE-4-C2 

8.884C4-02 

8.877Em 

6.862E>02 

8.833E-«-02 

IY=10 

8.a84E>02 

a-sazE-t-oa 

8.869Em 

8.842Em 

a.sooEm 

IY«  9 

8.883E-l‘02 

8.877E+02 

8.8S2Em 

a.aoasm 

6.755E'^02 

IY»  8 

8.878Bm 

a.865E’t>02 

8.817Em 

8.757B+02 

8.70SB+02 

IY=  7 

a.aazEm 

8.831E<»^02 

8.758Em 

d.697E*02 

a.eesB-t-oz 

IY»  6 

8.ao8Em 

8.747E+02 

a.esism 

a.652Em 

8.643E-t‘02 

IY«  5 

8.711E-f02 

8.d70Bm 

8.656E+02 

8.649E'^02 

8,647E+02 

IY»  4 

8.653E-»-02 

a.asiE^oz 

a.aszEm 

6.630Em 

e.828E-»02 

1Y«  3 

8.622Em 

a.eisE't'OZ 

8.617Em 

8.607E+02 

8.595E4‘02 

IY»  2 

8.aOOE<»>02 

8.523E-t>02 

8.433Em 

8.234Em 

S.OSSEm 

lY*  1 

6.986E«02 

S.727E^02 

4.606£m 

3.120Em 

2.176E+02 

XZ» 

6 

7 

8 

9 

10 

IY“25 

o.easEtoz 

8.8e4E4>02 

8.e84Em 

8.884E«02 

8.884E4>02 

IY«24 

8.8e5£m 

8.8a4E+02 

8.884Em 

8.884E>02 

a.8e3B-»^02 

IY«23 

8.8esEm 

8.884E>02 

B.884Em 

8.883Em 

8.883E<t-02 

IYa22 

8.a84Em 

8.884E4-02 

B.883E4^02 

8.882Et02 

a.aeiEfOZ 

1Y*21 

8.864Em 

8.883E^02 

8.882E4^02 

8.881Em 

8.879Em 

1Y«20 

8.ee4E«02 

a.8a2E<*>02 

8.6e0S^02 

8.878£^02 

d.876E4^02 

IYe19 

8.883E^02 

a.aaiE^oz 

a.B77E’f02 

8  a74E402 

8.671E>02 

1Y«18 

e.aazE^oz 

6.879E>02 

8.B72E4>02 

8.867E^02 

8.062E«02 
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IY=17 

8.880E-i'02 

8.874E+02 

IY=16 

8.877E+02 

8.868Em 

IY»15 

8.872E+02 

8.857E-i-02 

r/=14 

8.862E+02 

8.84CE-f02 

IYal3 

8.848E-l>02 

8.817E+02 

IY=12 

8.825E+02 

8.786E+02 

iY=n 

8.793E>02 

8.748E-<-02 

IY=10 

8.752E+02 

8.710E-»-02 

II 

8.709E-t>02 

8.e77E-i-02 

IY=  8 

8.671E+02 

8.656E-I-02 

II 

M 

8.649E+02 

8.645E-I>02 

IY«  6 

8.e41S>02 

8.642E4-02 

lY*  5 

8.646E+02 

8.647Em 

lY*  4 

8.627E-I-02 

8.627E4-02 

lY*  3 

8.585E-t>02 

8.S77E+02 

lY*  2 

7.912E+02 

7.799E+02 

lYa  1 

l,721E+02 

1  .S60E-t>02 

IZ» 

11 

12 

IY»2S 

8.884E<«’02 

8.884E-»02 

IY*24 

8.883E'l>02 

8.883E<^02 

IY«23 

8.882E'(>02 

8.8a2Em 

IYn22 

8.e81E-»02 

8. 881 24-02 

IY=21 

8.879E<t-02 

8.d79E4^02 

IYS20 

8.67SE+02 

8.875E402 

IY=19 

8.870E-t-02 

8.869E402 

XY»18 

8.861E4-02 

8.860E4-02 

IYal7 

8.848E-^02 

8.846E402 

1Y»16 

8.828E>02 

a.826B4-02 

IY«15 

8.802E^02 

B.800E402 

IY«14 

8.770E-t>02 

8,767E+02 

IYa13 

8.73SE+02 

B.732E-^02 

IYal2 

8.703E+02 

8.702E4-02 

lYall 

a.680E4-02 

8.681E4^02 

IY=10 

a.eeeEm 

0.66eE4>02 

lY*  9 

8.659E«CZ 

d.662E4-02 

8.864E4-02 

8.857E4-02 

8.849E4-02 

8.852E4-02 

8.842E-(-02 

8.831E4-02 

8.835E+02 

8.821E+02 

8.806E4-02 

8.811E4-02 

8.792E4-02 

8.775E4-02 

8.780E+02 

8.759E+02 

8.740E4-02 

8.745E+02 

8.723E+02 

8.707E4-02 

8.711E4-02 

8.693E+02 

8.682E4-02 

8.682E->-02 

8.670E4-02 

8. 66524-02 

8.662E+02 

8.d57E+02 

S.656E4-02 

8.6S0E4-02 

8.650E+02 

8.652E4-02 

8.645E4-02 

8.646E4-02 

8.649E4-02 

8.642E4-02 

8.645E-I-02 

8.647E4-02 

8.647Em 

8.650E-I-02 

8. 65 124-02 

8.627E-<-02 

.  8.630E4-02 

8.630E4-02 

8.570E-t-02 

8.564E4-02 

8.563E+0r 

7.698Em 

7.&01E402 

7.599E4-02 

1 .515E+02 

1 .506Em 

3.725E4‘02 

13 

14 

15 

8.884Em 

8.88424-02 

8.884E4-02 

8.883E>02 

8.883E4-02 

8.883E4^02 

d.aaEE-t-OE 

8.882E4-02 

8.883E4-02 

8.861E4-02 

8.88124-02 

8.88184-02 

0.879Em 

8,879E4-02 

8.879E4-02 

8,87SE-<-02 

8.875E4^02 

8.876E4-02 

8.869E4-02 

8.869E4-02 

8. 87124-02 

8.860E4-02 

8.859E4-02 

8.862E4-.02 

8.845E4'02 

8.845E4-02 

0,849E4-Q2 

8.82SE4-02 

8.825E4-02 

a.831E4-02 

8.798E4>02 

8.798E4-02 

8.807E4^02 

8.765Em 

e.766E+02 

8.778E402 

8.731E4>02 

8.73484-02 

d.750E4-02 

8.703E4>02 

8.70724-02 

8.727E4-02 

8.683E402 

8.689E4-02 

8.712B4-02 

8.672E+02 

8.680E4-02 

8.703E4-02 

8.667Em 

8.675E4-02 

8.700E4^02 
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IY»  8 

8.655E+02 

8.659E+02 

TY®  7 

8.652S-)-02 

8.656E+02 

If 

8.650E+02 

8.654E+02 

IY»  5 

8.654E-i’02 

8.658E+02 

M 

II 

> 

8.632E+02 

8.637E+02 

IY=  3 

8.553E+02 

8.555E+02 

lY®  2 

7.488E-i>02 

7.462£-i-02 

IY=  1 

2.871E-i’02 

2.636E+02 

IZ» 

16 

17 

IY=25 

8.884E-»-02 

XY=24 

8.884E+02 

IY=23 

8.884E+02 

1Y®22 

8.885E+02 

IY=21 

8>8w5E^02 

IY=20 

8.887E+02 

1Y®19 

8.848E-»-02 

IY»18 

8.891E’<’0:: 

IY=17 

8.894E<^02 

ZYate 

8.897E-t-02 

lYalS 

8.898E+0‘'; 

ZYal4 

8.e96E+02 

IY«13 

8.889E<t‘02 

IY*12 

e.879E'»>02 

• 

lYal  1 

8.870E4-02 

lYslO 

8.862^m 

1Y=  9 

8.8S7E'f02 

lY*  8 

S.aSSE-t-OZ 

lYa  7 

d.aSOE+OZ 

IY«  8 

8.34SEm 

lY®  5 

d.801E4-02 

lYa  4 

8.599E+02 

IY«  3 

s.zsaEm 

lY®  2 

7.353E4-02 

lY®  1 

4.1VSEm 

IZ* 

21 

8.664E+02 

8.673E-i-02 

8.697E-(-02 

8.662E+02 

8.671E-l’02 

8.695E+02 

a.esoEm 

8.671E+02 

8.698E+02 

8.667E+02 

8.692E+02 

8.734E+02 

8.651E->-02 

8.707E+02 

8.750E+02 

8.573E+02 

8.685E-i-02 

.  8.659E<-02 

7.460E-t-02 

7.689E+02 

7.616E+02 

2.464E+02 

4.855E+02 

4.447E+02 

18 

19 

20 

in 


FIELD  VALUES  OF  PI 


IY=25 

1 .048E+05 

1.048E+05 

1.048E4-05 

1.0488+05 

1.0488+05 

IY=24 

1.048E-t-05 

1.048E4>05 

1.048E4-05 

1.0488+05 

1.0488+05 

IY=23 

1.048E-t>05 

1.048E+05 

1.048E4-05 

1.0488+05 

1.0488+05 

IY=22 

1 .048E+05 

1.048E-I-05 

1.048E4-05 

1.0488+05 

1 .0488+05 

IY=21 

1.048E+05 

1.048E4-05 

1.048E4-05 

1.0488+05 

1.0488+05 

IY=20 

1 .048E+OS 

1 . 048E4-0S 

1.048E4-05 

1.0488+05 

1 .0488+05 

IY=19 

1.048E-t-O5 

1.048E-(‘05 

1.048E4-05 

1 .0488+05 

1.0488+05 

IY=18 

1.048E+05 

1.048E+05 

1.048E4-05 

1 .0488+05 

1.0488+05 

IY=17 

1 .048E+05 

1 .048E4-05 

1.048E4-05 

1 .0488+05 

1.048E+05 

IY=16 

1.048E+05 

1.048E4-05 

1.048E4-05 

1 .0488+05 

1.0488+05 

IY=15 

1.048E-t-05 

1.048E+05 

1. 04884-05 

1.0488+05 

1.0488+05 

IY=14 

1 .048E-t>05 

1  .048E4-05 

1.048E4-05 

1 .0488+05 

1 . 0488+05 

IY=13 

1 .048E-t-05 

1.048E-t-05 

1.048E4-05 

1 .048E+05 

1 .0488+05 

IY=12 

1 .048E>05 

1 .048E-I-05 

1. 04884-05 

1  .0488+05 

1.0488+05 

IY»11 

1. 04884-05 

1.048E-t-OS 

1. 04884-05 

1 .0488+05 

1.0488+05 

lYslO 

1 .048E4-05 

1.048E+05 

1.04884-05 

1.0488+05 

1 .0488+05 

lY*  9 

1.048E4>05 

1,048E+05 

1.04ftE4-05 

1 .0488+05 

1 .0488+05 

IY«  8 

1.048E4-05 

1.048E-»'05 

1.04884-05 

1.0488+05 

1.0498+05 

IY»  7 

1.048E4-05 

1.048E4>05 

1.04884-05 

1.0488+05 

1 .0508+05 

f 

IY=  6 

1 .048E4-05 

1 .048E4-05 

1.04884-05 

1.0498+05 

1.0558+05 

IY»  5 

1 .048E4-05 

1.04aE4-05 

1. 04884-05 

1.0498+05 

1.0638+05 

lYa  4 

1.048E4-05 

1 .048E4-05 

1.0488-405 

1.0498+05 

1.0668+05 

IY=  3 

1.048E-405 

1.048E4-OS 

1.04884-05 

1 .0508+05 

1 .0678+05 

IY=  2 

1 .048E>0S 

1.048E405 

1.0488+05 

1.0508+05 

1 .0678+05 

IY=  1 

1.048E4-05 

1.04884-05 

1.0488+05 

1.0508+05 

1.0678+05 

IZs 

1 

2 

3 

4 

5 

IY=25 

1 .048E4-05 

1  .048E4-05 

1.0488+05 

1 .0488+05 

1 .0488+05 

IY=24 

1.048E4-OS 

1.048E405 

1.0488+05 

1 .0488+05 

1 .0488+05 

IY=23 

1 .048E4-05 

1.048E4-05 

1.0488+05 

1.0488+05 

1 .0488+05 

IYa22 

1.048E-)>05 

1  .040E4-05 

1.0488+05 

1.048E+05 

1 .0488+05 

IYa21 

1.048E4-05 

1.040E4-05 

1.0488+05 

1.048E+05 

1 .0488+05 

IY=20 

1.048E4-05 

1.048E4-05 

1.0488+05 

1. 0488+05 

1 .0488+05 

IYal9 

1.048E4-OS 

1.048E-405 

1.0488+05 

1 .0488+05 

1 .0488+05 

IY=18 

1.048E4-05 

1  .048E4‘05 

1.048E+05 

1 .0488+05 

1.0498+05 
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IY=17 

1.048E-I-05 

1.048E-i'05 

iy=i6 

1.048E-«-05 

1.048E+05 

IY=15 

1.048E-i-05 

1.048E-i‘05 

IY=14 

1.048E+05 

1.048E-i-05 

IY=13 

1 .048E+05 

1.048E+05 

IY=12 

1.048E+05 

1.048E-(-05 

IY=n 

1.048E-t-05 

1.049E+05 

IY=10 

1.048E-t-05 

l,049E+05 

M 

II 

1.049E+05 

1.052E+05 

IY=  8 

1.051E+05 

1.060E+05 

IY=  7 

1.060E+05 

1 .087E+05 

II 

>• 

M 

1.096E-t-05 

1.179E+05 

IY=  5 

I.EOEE+OS 

l,3SlE+05 

IY=  4 

1.301E+05 

1.411E+05 

IY=  3 

1.37SE+05 

1 .431E+05 

lY-  2 

1.414E-«-05 

1.434E+05 

IY=  1 

1.424E-»‘05 

1.432E-I>05 

IZ= 

6 

7 

IYs25 

t.048E’*>05 

1.048E+05 

IY»24 

1.048E't>05 

1.048E<»-05 

IY»23 

1.048E'»-0S 

1.048Ef05 

IY=22 

1.048E't>05 

1.049E'^05 

IY=21 

1.046E-t-05 

1.049E+05 

IYB20 

1.049E-I-05 

1.049E+05 

IYs19 

1.049E+05 

1.050E+05 

IY=18 

l.OSOE-fOS 

1.052E-t-05 

IYa17 

1  .OSIE+OS 

1.0S6E+05 

IY»16 

1 .053E4-0S 

1.061E+0S 

IY“15 

1.057E+05 

1.071E+05 

IY“14 

1.064E<t-05 

1  . 037E+05 

IYa13 

1.078E+05 

1.112E+05 

IYa12 

I.IOOE-^OS 

1.1S1E+05 

IY=n 

1.137E+05 

1.206E-^0S 

IY=10 

1.193E+05 

1 .273E+05 

IY»  9 

1.268E+05 

1 .342E+05 
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1.048E+05 

1.048E-I-05 

1.049E+05 

1.048E-«-05 

1.048E-i-05 

l.OSOE+05 

1.048E-I-05 

1.049E+05 

1.051E+05 

1 .048E+05 

1.049E+05 

1.054E+05 

1 .049E+05 

1.051E+05 

1.059E+05 

1.049E+05 

1 .054E-I-05 

1.069E-i-05 

1.050E+05 

1.061E-I-05 

1.088E+05 

1 .053E-t-05 

1.075E+0S 

1.122E+05 

1 .061E+05 

1.10SE+05 

1.180E+05 

1.082E-t-05 

1.164E+05 

1.265E+05 

1 .141E+05 

1.268E-i-05 

1.360E-I-05 

1 .282E-^05 

1 .390E+05 

1.421E+05 

1.408E+05 

1.415E+0S 

1.419E+05 

1 .429E+05 

1.417E+05 

1.418E+05 

1 .432E-t-05 

1.417E+05 

1.417E+05 

1 .432E+05 

1.417E+05 

1.417E+05 

1 .430E-t>05 

1.416E'«‘05 

1.416E+05 

8 

9 

10 

1.048E'i-05 

1.049E4>05 

1.049E<l>05 

t.049E-t>05 

1.049E^05 

1.050E-t>05 

1 .049B+05 

1.050E4>05 

I.OSlE-i-OS 

1.049E-i-05 

1.051E4>05 

1 .052E4>05 

1.050E<«-05 

1.053E+05 

1.055E-^05 

1.052E^05 

1.056E4>05 

1.059E+05 

1,054E+05 

1 .061E+05 

1.066E-»>05 

1 .059E+05 

1 .070E+OS 

1.077E+0S 

1 .066E-»-05 

1 .083E405 

1.095E+05 

1 .077E+05 

1.103E+05 

1.120E-I-05 

1.096E+05 

1 .133E^05 

1.156E+0S 

1 .124E^05 

1 .174E+05 

1  .ZOSE-^OS 

1.164E>05 

1 .22SE4-0S 

1.259E-»-0S 

1 .217E+05 

1 .2e3E^OS 

1.31SE+05 

1.278E+0S 

1.338E<-0S 

1.362E^05 

1 .340E4-05 

1 .381E^0S 

1.396B+05 

1 .387E+05 

1 .408E-t-0S 

1 .413E'«>05 

IY=  8 

1.347E+05 

1.395E+05 

1 .414E+05 

1.420E+05 

1.419E+05 

IY=  7 

1.405E+0S 

1.420E+05 

1.423E+05 

1.422E+05 

1.420E-i'05 

IY=  6 

1.424E-I-05 

1.423E+05 

1 .423E+0S 

1 .422E+05 

1.419E+0S 

IY=  5 

1.423E-I-05 

1 .424E+05 

1.423E-I-05 

1.422E+05 

1 ,418E+05 

IY=  4 

1.422E-t-05 

1.424E+05 

1.423E+0S 

1.422E+0S 

1.417E+05 

II 

ot 

1.422E-i'05 

1.424E+05 

1.423E+0S 

1.422E+05 

1.416E+05 

IY=  2 

1.422E-I>05 

1.424E+05 

1 .423E+05 

1.422E+05 

1.415E+05 

II 

1.421E+05 

1.424E+0S 

1.423E-i-05 

1.422E-(-05 

1.417E+05 

II 

M 

M 

n 

12 

13 

14 

15 

IYa2S 

I.OSOE+OS 

1.050E-»-05 

1.050E+05 

1.050E+05 

1.050E+05 

IY=24 

1.050E+05 

1.050E-t-05 

1.050E>05 

1.0S0E+05 

1.050E+05 

IY=23 

1.051E+05 

1.052E-t-05 

1 .0S2E'l-05 

1.052E-«-05 

1.052E+05 

IY=22 

1.053E-»-05 

1.054E-t-05 

1.054E+05 

1.054E+05 

1.054E+05 

IY=21 

I.OSTE+OS 

1.057E+05 

1.0S8E+05 

1.058E-<-05 

1.058E+05 

IY=20 

1.063E+05 

1.063E+05 

1.064E4-05 

1.064E+05 

1.065E+05 

IYal9 

1.072E+05 

1.073E+05 

1.074E+05 

1.07SE+05 

1.075E+05 

IY=18 

i.oseE-t-os 

1.088E-t-05 

1.090E-)-05 

1.091E+05 

1.092E+05 

IYa17 

1.108E-«-05 

1.111E+05 

1.113E+05 

1.115E+05 

1 .117E+05 

IY<»16 

1 . 139E>05 

1.143E+0S 

1.147E+0S 

I.ISOEm 

1.152E+05 

lYsIS 

1.161E-t-05 

1.187E+05 

1.192E-l>05 

1.195E-t‘05 

1 . 197E+0S 

1Y»14 

1.233Ef05 

1.240E4-05 

1 .245E+05 

1 .249E-»‘05 

1.250Em 

IY»13 

1.289E4-05 

1.295E't-05 

I.SOOE-t-OS 

1.302E>05 

1.300E-«-05 

IY«12 

1.340E-t-05 

1.344B+05 

1 .347E+05 

1.346E-t-05 

1 .341E+05 

lYsll 

1 .379E+05 

1.381E+05 

1 .380E+OS 

1.377E+05 

1.368E’t-05 

IY=10 

1.403E-t-05 

1.402E't-05 

1 .399E'f05 

1.393E-^05 

1.382E+05 

1Y=  9 

1.414E+05 

1.411E+05 

1 .406E't-0S 

1.399E+05 

1.386E-«-0S 

lYa  8 

1 .417E+05 

1.413E-I-05 

1.407E+05 

1.399E+05 

1.387E+05 

IY=  7 

1 .417E+05 

1.412E-I-05 

1 .407E+05 

1 .399E+0S 

1.386E^05 

IY=  6 

1 .416E4>05 

1.412E-^05 

1.407B+05 

1.398E4-05 

1.382E-»-05 

lYa  5 

1 .417E+05 

1.414E+05 

1 .408E-»-0S 

1 .393B'i-05 

1.347E+0S 

IY=  4 

1.418£^05 

1.415E+0S 

1 .408E4-0S 

1.383E+05 

1.278E+05 

lYa  3 

1.419E^0S 

1.416E+0S 

1 .408E-t>0S 

1 .371E+05 

1.159E+05 

IY=  2 

1 .420E+05 

1.416E+0S 

1 .408E-f05 

1 .365E4-05 

1.063E^05 

IY«  1 

1 .419E+05 

1.41SE-t-05 

1.407E+05 

1 .374E+05 

1.042E>05 

1Z» 

16 

17 

18 

19 

20 
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IY»2S 

I.OSOEtOS 

1.049Et05 

IY=24 

1.050E+05 

1.049E+05 

IY=23 

I.OSIEtOS 

1.049Et05 

IY=22 

I.OSAEtOS 

1.049Et05 

IY=*21 

1.057E+05 

1.049E-(-0S 

IY=20 

1.063Et05 

,1.049E+05 

IY=19 

1.073Et05 

1.049Et0S 

1Y=18 

1.088Et05 

1.049Et05 

IY=17 

1.111E+05 

1  .049E-t-05 

IY=16 

1.142EtOS 

1.049Et05 

IY»1S 

1.183Et05 

1.049Et05 

IY»14 

1.229Et05 

1.049Et05 

IY=13 

1.272E-t-05 

1.049Et05 

IYsl2 

1 .307E-<-05 

1.049E+05 

IY=n 

1.330Et05 

1.049Et05 

IY=10 

1 .341E+05 

1.049Et05 

IY=  9 

1 .345Et05 

1.049Et05 

lY®  8 

1.345E’I>05 

1.049E+05 

lY®  7 

t.344E-»-05 

1.049Et05 

•  • 

IY«  6 

1.337E40S 

1.049Et05 

w 

IY«  S 

\ .275Et05 

1.049Et05 

• 

lY®  4 

1.185EtOS 

1.049E+05 

lY®  3 

1 .088Et05 

1.047Et05 

• 

lY®  2 

i.oeiEtos 

1.026Et05 

lY®  1 

1.060Et0S 

8.849Et04 

ZZ> 

21 

22 

FIELD  VALUES  OP  PP  < density) 

• 

XY»2S 

1.835Et00 

1.835EtOO 

1.835E-»>00 

1.835Et00 

1.835EtOO 

IY»24 

1 .835Et00 

1.835EtOO 

1 .835E>dO 

1.835EtOO 

1.83SEtQO 

IY»23 

1.835Et00 

1.835EtOO 

1.83SEtO0 

1.835EtOO 

1.835EtOO 

1Y»22 

1.835Et00 

1.835E-I-00 

1.835EtOO 

I.BSSEtOO 

1.835EtOO 

1Y®21 

1.835Et00 

1.835Et00 

1.835EtOO 

1 .835EtOO 

1.835EtOO 

IYb20 

1.83SEt00 

1.835Et00 

1.835EtOO 

1.835EtOO 

1.83SEtOO 

lY-19 

1 .83SEt00 

1.835EtOO 

1.835EtOO 

I.BSSEtOO 

1.835EtOO 

IY®18 

‘l.835E-»-00 

1  .e35Et00 

1.835Et00 

1.835Et00 

1 .835EtOO 

ns 


IY=17 

1.835E+00 

1 .835E-i'00 

1 .835E+00 

1.835E+00 

1 .835E+00 

IY=16 

1.835E+00 

1 .835E+00 

1 .835E+00 

1.835E+00 

1.83SE+00 

IY=15 

1.835E'l-00 

1 .835E+00 

1 .835E+00 

1.835E+00 

1  .SESE+OO 

IY=14 

1.835E-i-00 

1 .335E+00 

1.835E-l'00 

1.835E+00 

1 .835E+00 

IY-13 

1.835E+00 

1.835E+00 

1 .835E-t-00 

1.835E-i-00 

1 .835E+00 

IY=1?. 

1.835E+00 

1 .835E+00 

1 .835E-t-00 

1.835E+00 

1.835E+00 

IY=11 

1.835E-«-00 

1 .835E-i'00 

1.835E-t-00 

1.835E-I-00 

1.835E+00 

lYalO 

1.835E+00 

1 .835E+00 

1 .835E-(-00 

1.835E-(-00 

1.835E+00 

IY=  9 

1.835E+00 

1.835E+00 

1.835E+00 

1.835E+00 

1 .836E-I-00 

CO 

11 

>* 

M 

1.835E+00 

1 .835E+00 

1.835E-<-00 

1.835E+00 

1.836E-i-00 

IY=  7 

1.835E-<-00 

1 .835E-I-00 

1.835E-i-00 

1.836E+00 

1.838E+00 

IY=  6 

1.835E-«-00 

1.835E-t-00 

1 .835E-t-00 

1.836E-t-00 

1.844E+00 

IY=  5 

1.835E-I-00 

1 .835E+00 

1.835E+00 

1.837E+00 

1.855E+00 

IY=  4 

1.835E+00 

1.835E+00 

1 .835E-t'00 

1.837E+00 

1.859E+00 

It 

> 

M 

1.835E-(-00 

1.835E+00 

1.835E-t-00 

1.837E+00 

1.860E+00 

IY=  2 

1.B35E400 

1.835E-»-00 

1.835E+00 

1.837E+00 

1.860E-t-00 

lYa  1 

1.835E-t>00 

1.835E+00 

1.835E+00 

1.837E+00 

1.860E-t-00 

IZ= 

1 

2 

3 

4 

5 

IY=2S 

I.SSSE'I-OO 

1.835E+00  . 

.  1.83SE-«>Q0 

1.835E+00 

1.83SE+00 

IY«24 

I.ESSE+OO 

1  .SSSE't-OO 

1.835E'I’00 

l,835E+00 

I.SSSE-fOO 

IYa23 

KSSSE-fOO 

1 .835E-t-00 

1.835E-t-00 

1.835E-t>00 

1.835E4-00 

IY=22 

1.83SF.+00 

1.835E<^0Q 

1.835E4-00 

1.835E-I-00 

1.835E-t>00 

IY=21 

1.835E4-00 

1.835E-t-00 

1.835E+00 

1 .835E’i>00 

1 .835E-t-00 

IY=20 

1.835C-«-00 

1 .835B+00 

1 .835E'fOO 

1.835E-<>00 

1 .836E-I-00 

IYa19 

1.835E-fOO 

1.835E’<'00 

1.835E-t-00 

1.835E-<-00 

1.836E4-00 

IY=18 

1.83SE+00 

1.835E4^00 

1 .835E^00 

1.835E-»>00 

I.ESeE-l-OO 

IY=17 

1.835E-fOO 

1.835E+00 

1.835B-»-00 

V.836E+00 

1 .836E+00 

IY»16 

1.835E4-00 

KSSSE-i-OO 

1 .835E't-00 

1.836E+00 

1.837E+00 

IYbIS 

1 .835E4-00 

1 .83SE-»-00 

1.835E4-00 

1 .836E-t-00 

1.839E+00 

IY»14 

1.83SE>00 

1 .83SE-t-00 

1.836E^00 

1 .837E>00 

1 .843E-»-00 

IY=13 

1.835E^00 

1 .835E4-00 

1.836E^00 

1.839E4>00 

1.349E‘»^00 

1Y=12 

1.835E't-00 

1.836E<»>00 

1.836E4-00 

1.843E^OO 

1  .seBE-t-oo 

IY=11 

1.835E^OO 

1.836Ef00 

1.838E>00 

1.8S2E4-00 

1 .387E+00 

IY=10 

1.836E4-00 

1.837E+00 

1 .842E-«-00 

1.870E4‘00 

1.931E-t-00 

IY=  9 

1.837E^OO 

1.840E4-00 

1.852£4>00 

1.908E-»‘00 

2.004E-l‘00 
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IY=  8  l.a40E+00 

IY=  7  1.851E+00 

IY=  6  1.897E+00 

IY=  5  2.039E+00 

IY=  4  2.154E+00 

IY=  3  2.244E+00 

2  2.291E-t-00 

IY=  1  2.303E+00 

IZ-  6 
IY=25  1.83SE+00 

IY=24  1.835E-I-00 

IY=23  l.aSSE-t-OO 
1Y=22  1.836E+00 

IY=21  1.836E-t-00 

IY=20  1.836E-t-00 

IY=19  1.836E+00 

lYs18  1.837E+00 
IY=17  1.839E+00 

IYS16  1.842E+00 
IY=1S  1.847E+00 
ZYs14  1.856E400 
IY=«13  1.873E+00 

IY»12  1.903E+00 

IY=11  1.950E+00 

IY«10  2.021E+00 

1Y=  9  2.n3E+00 

lYa  8  2.210E400 

IY“  7  2.281E+00 

lY*  6  2.303E+00 

IY=  S  2.302E+00 

IY=  4  2.301E+00 

ZYa  3  2. 301  £4^00 

ZY°  2  2.300£-^00 

ZY»  1  2.300E+00 

Z2=  11 


1.850E+00 

1 .879E+00 

1.886E+00 

1.954E+00 

2.003£-t-00 

2.131E+00 

2.215E+00 

2.284E400 

2.288E+00 

2.308E400 

2.312E-(-00 

2.312E400 

2.315E+00 

2.312E+00 

2.313E+00 

2.310E+00 

7 

8 

1.836E+00 

1.836E400 

1.836£-f00 

1.836E400 

1.836E400 

1.836£400 

1.836E’t-0O 

1.837E400 

1.838E-I-00 

1.838E400 

1,837E+00 

1.840E400 

1.838E-I-00 

1.843E400 

1 .841E+00 

1.a49E400 

1.845E+00 

1.858E400 

1.8S2£400 

1,873E+00 

1.865E400 

1.897E+00 

1.88S£400 

1.933E400 

1.918E400 

1.984E400 

1 . 967E+00 

2.050E400 

2.036E400 

2.126E400 

2.119E+00 

2.201E400 

2.204£400 

2.259E400 

2.268E400 

2.291E400 

2.296E400 

2.301E400 

2.302E400 

2.302E400 

2.303E400 

2.302E400 

2.303E400 

2.302E400 

2.303E400 

2.302E400 

2.303£400 

2.302E400 

2.303£400 

2.302E400 

12 

13 

1.983E400 

2.109E400 

2.110E+00 

2.226E400 

2.263E-(-00 

2.300E400 

2.292E-i-00 

2.297E400 

2.295E+00 

2.295E400 

2.295E400 

2.295E400 

2.295£-i-00 

2.295E400 

2.293E400 

2.294E400 

9 

10 

1.837E+00 

1.837E400 

1.837E400 

1.837E400 

1.838E400 

1.839E400 

1.839E400 

1.840E400 

1.841E400 

1.844E400 

1.846E400 

1.849E400 

1.852E400 

1.859E400 

1.863E400 

1.873E400 

1.880E400 

1 .895E400 

1 .906E+00 

1.928E400 

1.944E400 

1.974E400 

t.996£400 

2.033E400 

2.060E400 

2.102E400 

2.132E400 

2.171E400 

2.199E400 

2.229E400 

2.252E400 

2.269E400 

2.284E400 

2.290E400 

2.298E400 

2.297E400 

2.300E400 

2.298E400 

2.300B400 

2.297E400 

2.300E400 

2.296E400 

2, 301 £400 

2.294E400 

2.301E400 

2.293E400 

2.300E400 

2.292E400 

2.300E400 

2.295E400 

14 

15 
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IY=2S 

1 .838E-t-00 

1.838E4-00 

1.838S+00 

1 .838E-t-00 

1 .838E+00 

IY=24 

1 .838E+00 

1.838E+00 

1.838E+00 

1 .838E-t-00 

1 .838E+00 

IY=23 

1 .840E-i-00 

1.840E’i>00 

1 .840E+00 

1.840E+00 

1 .840E+00 

IY=22 

1 .842E+00 

1.843E+00 

1.843E+00 

1 .843E+00 

1 .843E+00 

IY=21 

1 .847E+00 

1.847E+00 

1.848E+00 

1.848E+00 

1 .848E't-00 

IY=20 

1 .854E+P0 

1 .855E+00 

1.856E-I-00 

1.856E+00 

1 .857E+00 

IY=19 

1.866E-t-00 

1.868E+00 

1.869E+00 

1 .870E+00 

1 .871E+00 

IY-18 

1 .884E+00 

1.887E+00 

1 .889E-I-00 

1.891E+00 

1 .892E-t-00 

IY=17 

1.912E+00 

1.916E+00 

1.919E+00 

1 .922E+00 

1 .924E+00 

IY=16 

1 .952E-t-00 

1 .9S7E+00 

1.962E-I-00 

1 .966S+00 

1 .968E-t-00 

IY=15 

2.005E+00 

2.012E+00 

a.OISE+OO 

2.023E-I-00 

2.025E-I-00 

IY=14 

2.070E-I-00 

2.078E-<-00 

2.085E-<-00 

2.090E+00 

2.091E+00 

IY=13 

2.140E-«-00 

2.147E+00 

2.1S3E+00 

2.155E-»-00 

2.153E-I-00 

IY=12 

E.EOEE'I’OO 

2.207E+00 

2.210E-t-00 

2.209E+00 

2.203E-»-00 

IY=11 

2.249E-^0C 

2.251E-t-00 

2.250E-t-00 

2.246E+00 

2.236E-»-00 

lYslO 

2.278E-t>00 

2,277E+00 

2.273E+00 

2.266E4-00 

2.253E-«-00 

lY*  9 

2.291E-I>00 

2.287E+00 

2.281E-f00 

2.273E+00 

2.258E-t-00 

IY=  8 

2.294E+00 

2.290E-I-00 

2.283E-»>00 

2.274E+00 

2.258E-»-00 

lY*  7 

2.294E-i>00 

2.289E>00 

E.ZEEE-t-OO 

2.273E+00 

2.257B+0d 

lYa  6 

2.294E>00 

2.289E4>00 

2.2d2B-»>00 

2.272E4-00 

2.253E4-00 

1Y«  5 

2.295E'«>00 

2.291E-^00 

2.284E-i>00 

2.266E-»-00 

B.EIIE-t-OO 

11 

2.296E’»-00 

2.292E-«‘00 

2.284E^00 

2.254E-«'00 

2.125E4-00 

lYa  3 

2.298E^00 

2.294E-i-00 

2.284E-»^00 

2.239E-«-00 

1 .977E+00 

lYa  2 

2.298E-t>00 

2.294E4'00 

2.284E+00 

2.233E-«-00 

1 .8S4E'«-00 

lYa  1 

2.297E+00 

2.292E>00 

2.282E+00 

2.242E-«>00 

1 .827E4-00 

12= 

16 

17 

18 

19 

20 

IY=25 

1 .838E-t-00 

1.837E+00 

IY»24 

1 .838E^00 

1.837E4-00 

IY=23 

1 .8402^00 

1.837E-*-00 

IY=22 

1  .SAEE'i-OO 

1 .837E+00 

1Y=21 

1.847E+00 

1.837E+00 

IY«20 

1  .SSSE^OO 

1.837E+00 

IY=19 

1 .868E-^00 

1 .837E-«>00 

IY=18 

1.887E4‘00 

1.837E+00 

IY=17 

1.916E4>00 

1 .837E't‘00 
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IY=16 

1 .956E+00 

1.837E+00 

IY»15 

2.007E-I>00 

1.837E+00 

IY=14 

2.065E-l'00 

1 .837E+00 

IY=13 

2.119E-t-00 

1 .837E+00 

IY=12 

2.161E+00 

1.837E+00 

IY=n 

2.ia9E+00 

1 .837E+00 

IY=10 

2.203E+00 

1.837E+00 

IY=  9 

2.207E+00 

1.837E+00 

IY»  8 

2.208E>00 

1 .837E+00 

lY*  7 

2.207E+00 

1 .837E+00 

IY=  6 

2.198E+00 

1 .837E<<-00 

IY=  5 

2.122E<<>00 

1 .837E+00 

IY=  4 

2.010E-*-00 

1 .837E+00 

lYs  3 

1.886E+00 

1.834E^00 

lYa  2 

1.a52E>00 

1.806E-»-00 

lYa  1 

1.851E+00 

1.619B<^00 

IZ® 

21 

22 

KKXKMXXXXXXXKNXMMXXMXXMMMKKXMNKXXMXKXMMXMMXXMXMMXIIMXMMXilMNMX 

US^I-  NAME  OP  PILE  CONTAININO  PINAL  PLOW  PIELDS  IS  TNI 
LAST  SWEEP  *100 
LAST  STEP  «  1 

XXXKXXMXXXXXXXKXXXXKXXKKXXXXKK 
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APPENDIX  £ 

PROGRAM  CALCULATES  LAMINAR  DISTRIBUTION  QUANTITIES  ' 

C  THIS  PROGRAM  CALCULATES  CF,ST,Q>H  OVER  THE  VANE  FOR 
C  LAMINAR  FLOW 

REALXS  YU20),Y2(20).H(20),W(20),ST(20),Q(20),CF(20},RA(20) 
REALX8  BZFRAC(20),EMU,GPGP,PR>HW.HCON(20),RO(20) 

REALX8  REZ(20)>CFB(20),Z(20),TAW(20).YO(20),D1 (20), 02(20) 

REALX8  P(20 ) , PK(20 ) , CW(20 ) ,ZO(20 ) , V(20 ) >TMP(20 ) , VISC(20 ) 

INTEGER  IZ 

GHs6.4E'03 

60^1 OXGH 

QL=95.2E-03 

GTLel .24XGL 

6BBTA»4 . 

GBETAbGBETAMS . 1415927/180 
6TAB»TAN(6BETA) 

DELHAXB2.E-03 

GNBLbS. 

GPWRa3. 

EMUbO.OB-OS 

RGCbI.835 

PE«1.048E+05 

RUUa0.SMR0EMWEKX2 
C  RUUbR0EkWE»H2 
GAMAal.SS 
RWb287. 

CPbOAMAnRW/(GAHA<^1  . ) 

HWB323.NCP 

H0b555.5KCP 

PRbO.7 

GPCPBEMU/PR 
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00  10  1Z>1,6 

yi (IZ)a(1 ./S. iMXGPWRXDEiJIAX 
Y2(IZ)a(2./5.  IXXGPNIUIDEIJIAX 
10  CONTINUE 

BZFRAC(1)=42.373E-3 
DO  06  IZ=2,8 

66  BZFRAC<IZ)=42.373E-3+B2FRAC<IZ-l) 

DO  67  I2a9,14 

67  BZFBAC(IZ)=a4.75E-34BZFRAC(ZZ-1) 

DO  68  IZ»15,16 

68  BZFRAC(IZ>s42.73E-3+BZFRAC(IZ-1) 

DO  69  12=17,20 

69  BZFRAC(IZ)=n.295E-3>BZFRAC(lZ>1) 

DO  20  XZ=6.20 

YI  (IZ)bYI  (UX<60>(BZFRAC<IZ)-BZFRAC(5)  )K6TABN0TL)/QD 
Y2( XZ)»Y2( 1 )Kt60-(BZFRAC( ZZI'BZFKACCS) }XG7AfiXGTL>/G0 
Z(ZZ)=(BZFBAC(XZ)-B2PRAC(5))XGTL 
REAO(S,T2)  H(XZ)^W(I2),R0CIZ>,P(IZ},V(ZZ) 
Tm»<I2)«^H<I2)-W(I2)«X2/2."V{I2)Xll2/2.)/CP 
IF(THP<ia).LT,1S0.)  THP<IZ)*150 
VISC<XZ)«1 .716B-0SK(THP<XZ)/273. )XX0.666 
XFtVXSC(IZ).L£..8B-05)  VXSCCXZIb.OE-OS 
TAW<XZ}«2MVXSCaZ)KW(X2)/(YUXZ)) 

CF(ZZ)ttTAW(XZ)/RUU 

CW(XZ}=$RO(XZ}/ROB)X(VXSC(XZ)/CNU) 

PK(XZ)BP(XZ)/PB 

R£Z(XZ)=R0(XZ)»NBXZ(I2)/VXSC(XZ) 

C  CF8(X2)=0.664/SQRT<R£Z(IZ}} 

ZOdZ)  =SORt(  PK(  IZIXCWC  XZ)/R£2(  XZ)  1 
CFB(XZ)=0.664MZOCtZ) 

Q<l2)=f  mO/PR)M2«1HfIZ)-HW)/m(lZ)) 
St(XZ)=Q(XZ)/(ROBNNENC0.9MKO-HH)} 

HCON<  XZ)=ROEXWBKCPKST( IZ) 
RAClZ)»ST{X2)/(CFCl2)XPRXX(-2./S. )) 

C  NRITE(B,19)  ZaZ},CP(XZ> 
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C  WRITE(8,27>  2(IZ),ST(IZ) 

c  wRiTE(8^2i)  zaz}«a(iz> 

mTE(8>22)  Z(lZ),KCCHaZ) 

C  WRITE(8,23)  ZtIZ},RA(IZ) 

C  WRITE(8,24)  Z(IZ),CFB<IZ) 

C  KRITE(8,28}  R£Z(IZ},CFB(IZ) 

20  CONTINUE 

12  F0RI1AT(3X>E10.3«3X,E10.3>3X,E10.3,3X,E10.3>3X>E10.3) 
C  19  F0RHAT(3X,E10.3>3X,E10.3} 

C  27  F0RMAT(3X,E10.3,3X>E10.3) 

C  21  F0RHAT(3X»E10.3,3X,E10.3) 

22  F0RHAT(3X,E10.3,3X,E10.3) 

C  23  F0RKATC3X,E10.3.,3X,E10.3) 

C  24  FORMAT(3X,E20.3,3X,E10.3) 

C  28  F0RMAT(r^:,E12.S,3X,E12.5) 

STOP 

END 
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AEPEHPIX  £ 

SATELITE  PROGRAM  OF  PKOE<IICS  USED  IN  TURBULENT  FLOW  ANALYSIS 

C^OIRECTIVEXXSATLIT 
C  NZ=22  NY=25  YN=10»aH 

C  XFILE  NAMEt  HOOBFCST.FTN 

C  XABSTRACTt  SATELLITE  MODEL  MAIN  PROGRAM.  THIS  VERSION  IS 
C  FOR  USE  WITH  THE  BODY-FITTED  COORDINATE  SCHEME  (SUMMER  1984 
C  VERSION)  PROVIDED  AS  AN  ATTACHMENT  TO  SPRING  1983  PHOENICS. 

C  XDOCUMENTATIONt  PHOENICS  INSTRUCTION  MANUAL  (SPRING  1983) 

C  WITH  BODY-FITTED  COORDINATES  INSTRUCTION  SUPPLEMENT 

C  (SUMMER  1984). 

C  XAUXILIARY  SUBHOUnNES  (TAPES,  ETC.)  ARE  IN  SATELLITE  LIBRARY 

C  SERVICED,  WHICH  MUST  BE  INCLUDED  IN  LINK  EDIT  TO  RUN. 
(U(XXX}(mXXXXX)OCXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  1  STARTS  • 

C - 

CHAPTER  1  COMMON  BLOCKS  AND  USER’S*  DATA. 

C - - - - 

ZNCLIDE  (CMNGUS) 

INCLUDE  (CMNORF) 

INCLUDE  (GUSSEQ) 

COHMON/CPI/IPWRIT, IDUN(243 ) 

DIMENSTON  6DTAPE(3),DFAULT(4) 

DIMENSION  ARRAY1(309),ARRAy2(194),ARRAY3U24'>^"  ' 

LOGICAL  ARRAY1 ,LSPDA,WRT,RD,NAHLST 
INTEGER  ARRAY2,XPLANE,YPLANB,ZPLANB 

INTEGER  PI .PP,U1 .U2,V1 ,V2,W1 ,W2,R1 ,R2,RS,EP,H1 ,H2,H3,C1 ,C2, 
8C3,C4 

REAL  NORTH. LOW 
LOGICAL  BFC 

EQUIVALENCE  (ARRAY1 ( 1 ) .CARTES) . (ARRAV2( 1 ) .NX) 

EQUIVALENCE  (ARRAY3( 1 ) .SPARE) ( 1 ) ) , (Ml .R1 ) . (H2.R2) 

EQUIVALENCE  (LSTRUN,INTQR(12)), (NAMLST, LOGIC (88)) 


EQUIVALENCE  (L06IC(20),BFC) 

CXXXmXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  1  ENDS. 
C$DIRECTIVEX»CNNBF1 $$ 

C  THIS  FILE  CONTAINS  SATELLITE  COMMON  BLOCKS  FOR  BFC'S 
C  F1  MUST  BE  DIMENSIONED  TO  GREATER  THAN  OR  EQUAL  TO 
C  (NX+NY+17KNZ+24*NXXNY+6»<NX+1)K(NY+1)+6KND).  THE  VALUE 
C  OF  THE  DIMENSION  MUST  BE  SET  AS  NBFC  IN  GROUP  6  OF  SATLIT. 
COMMON/FOB/FI (5000) 

COMMON/CIB/ND/CIC/KOORD 

COMMON/GID/KDBQG , K0B6MF , KDBGCD , KDBIND  >  KDBMFX , KDBCDT , KDBPGS , 
&  KDBGUV>KDB6PV 

COMMON/CIE/KDBQS , KDBINS 
COMMON/CIF/IGEN/CIG/NCART 

C  THE  FOLLOWING  ARRAYS  MUST  BE  EXACTLY  DIMENSIONED  FOR  NXPU 
C  NYP1  AND  NZPli  BUT  HAY  BE  OVER  DIMENSIONED  FOR  NO. 

C  THE  BFRAC  ARRAYS  MUST  BE  DIMENSIONED  TO  ALLOW  FOR  SETTINGS 
C  IN  SATLIT>  THEY  HAY  BE  OVER  DIMENSIONED. 

C0HH0N/CRA/XW(26,23>1 )/CRB/XE(26,23» 1 ) 

&  /CRC/YS(2,23»t)/CR0/YN(2,23,1) 

&  /CRE/ZL(2,26,1)/CRF/ZH(2,26,1) 

&  /CRG/RCON/CRK/DARCY/CRI/BXFRAC ( 99 )/CRJ/BYFRAC( 99 ) 

a  '  /CRK/BZFRAC(99) 

COMMON/CLA/STORSA ( 6 ) « STORWD ( 6 ) , STORP , STORPE  >  STORPN , 
a  ST0RPH»ST0R1 ^ST0R2^ST0R3,ST0UNV.PRTBFC,ST0CRN 

COMMON/CLC/BFPLOT 

LOGICAL  STORP, STORPE»STORPN»STORPH,STOR1 ,ST0R2,ST0R3, 
a  STORSA,STORWD,STOUNV, PRTBFC,BFPLOT,STOCRN 

C  END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  1  STARTS  I 
C  ORAFFIC  ARRAYS  DIMENSIONED  AS  NEEDED... 

COMMON/GRAFl/PHIl < 1 )  /GRAF2/PHI2( 1 ) 

C  POROSITY  a  SPECIAL  DATA  ARRAYS  DIMENSIONED  AS  NEEDED. . . 
DIMENSION  PE(1.1,1),PN(1,1,1},PH(1.<1,1),PC(1,1,n 
DIMENSION  LSPDA(1),ISPDA(1),RSPDA(1> 

C  USER  PLACES  HIS  VARIABLES,  ARRAYS,  EQUIVALENCES  ETC.  HERE. 
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EQUIVALENCECRAlRf RE(21 ) ) , (QAHA,RE(22) ) > (6SNP,RE(23) ) 

G  USER  PLACES  HIS  DATA  STATEMENTS  HERE. 

DATA  NLSP>NISP,NRSP/1 >1,1/ 

cxxxxxxxxxxxxxxxxxxxxxmxxxxxxxmxxxxx  user  section  i  ends. 
cxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxx  standard  section  2  starts* 

c - 

chapter  2  SET  CONSTANTS,  AND  ARRANGE  FILE  MANIPULATIONS. 

c - - - 

C  PLEASE  DO  NOT  ALTER,  OR  RE-SET,  ANY  OF  THE  REMAINING 
C  STATEMENTS  OF  THIS  CHAPTER. 

DATA  CELL, EAST, NEST, NORTH, SOUTH, HIGH, LOW, VOLUME/ 

&  0 . ,  1 . , 2 . , 3 . , 4 .  ,5 . , 6 . , 7 .  / 

DATA  PI ,PP,U1 ,U2,V1  ,V2,W1 ,W2,R1 ,R2,RS,KE,EP,H1 ,H2,H3,C1 ,C2, 
&C3,C4/1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20/ 

DATA  FIXFLU, FIXVAL, ONLYMS,NALL/ 1.E-10, 1.210,0.0,-10.0/ 

DATA  IPLANE,XPLANE,YPLANE,ZPLANE/0, 1,2,3/ 

DATA  WRT,RD,D?AULT/ .TRUE. , .FALSE. ,4HDEFA,4HTH,T. ,4HDTA/, 1HG/ 
DATA  GDTAPE/4HGUSI,4HE1.D,2HTA/ 

DATA  NLDATA,NIDATA,NR0ATA/309, 194,421/ 

DATA  NLClEG,NTCVRG/60,350/ 

DATA  TITPP,TITC1 ,TITC2/3HRH0,4HMACH,4HTEMP/ 

CALL  TAPES(10,0DTAPE,3,1,4XNRDATA)  .• 

c - - read  default  file  if  blockdata  absent 

IF(INTGR1(29).NE.10}  GO  TO  2 

CALL  WRIT40(40HDATA  ESTABLISHED  IN  BLOCK  DATA.  > 

GO  TO  3 

2  CALL  DEFLT 

CD  2  CALL  TAPES(1,0FAULT,4,2,4XNRDATA) 

CD  CALL  DATAIO(RO,1) 

CALL  WRIT40(40HOATA  TAKEN  FROM  DEFAULT. OTA  ON  GROUP  A/C) 

3  CALL  WRIT40(40HFILE  MODSTL.FTN  IS  THE  SATLIT  USED.  ) 
L00IC(89)».TRUE. 

C - - - 

CHAPTER  3  DEFINE  DATA  FOR  NRUN  RUNS. 

C - 
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cxxxxxxxmxxmmxxxxxxxxxxxxxxxxxxm  standard  section  2  ends. 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXm  USER  SECTION  2  STARTS  S 

C - GROUP  41K:’LTI-RUNS  «  RUN<1-30)<.T.,29Jt.F.> 

C 

RUN(1)=. FALSE. 

C  NOTE:  ALL  RUNS  ARE  DEACTIVATED  AT  THIS  POINT  -  USER  SHOULD 
C  a=a=  SWITCH  ON  ONE  ONLY  OF  RUNS  1-4  IN  NEXT  STATEMENT. 
RUN(1)=.TRUE. 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  2  ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  3  STARTS: 
DO  10  IRUNs1,30 

IF(.NOT.RUN(IRON))  GO  TO  10 
NRUNsNRUN-l-1 
LSTRUN=IRUN 
10  CONTINUE 

DO  999  IRUN»1,LSTRUN 

IF(.NOT.RUM(IRUN>)  60  TO  999 
INTGR(II)  =  IRUN 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  3  ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  3  STARTS: 

C -  ALL  INTEGER  VARIABLES  ARE  DEFAULTED  TO  0»  AND  REAL  VARIABLES 

C  TO  0.0,  UNLESS  OTHERWISE  INDICATED. 

C  E.6.  BY  VARIABLE<10>,  OR  <10. 0>  AS  APPROPRIATE. 

C  THE  DEFAULT  SETTINGS  OF  ALL  LOGICAL  VARIABLES  ARE  ALWAYS 
C  INDICATED,  E.6.  VARIAfiLE<.T.>,  OR  VARIABLE<.F.>. 

C 

C -  RUN1 

C -  -  - 

C -  GROUP  1 .  FLOW  TYPE  : 

C  PARAB<.F.>,CARTES<.T.>,ONEPHS<.T.> 

C - - -  - 

C -  GROUP  2.  TRANSIENCE  : 

C  STEADY< . T . > , ATIME , LSTEP< 1 > , FSTEP< 1 > 

C  TLAST<1.E10>,TFRAC(1-30)<30X1.> 

C  SERVICE  SUBROUTINE  FOR  'NT*  POWER-LAW  TIME  STEPS: 
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CALL  6ROPHR(0, NT, TLAST, POWER) 


C 
C 

C -  GROUP  3.  X-DIRBCTION  i 

C  NX<1>,XULAST<1.0>,XFRAC<l-30) 

C  SERVICE  SUBROUTINE  FOR  POWER-LAW  ORIDt 

C  CALL  GRDPWR(1,NX,XULAST,POWER) 

C -  -  - — - 

C -  GROUP  4.  Y-DIRECTION  t 

C  NY<1>,YVLAST<1 .0>,YFRAC(1-30),RINNER,SNALFA 

C  SERVICE  SUBROUTINE  FOR  POWER-LAW  GRIDi 

C  CALL  GR0PWRC2>NY,YVLAST,P0WER> 

Ny=2S 

C -  -  - L - 

C -  GROUP  5.  Z-DIRECTION  i 

C  NZ<1>,ZWLAST<1.0>,ZFRAC<l-30) 

C  SERVICE  SUBROUTINE  FOR  POWER-LAW  GRID i 

C  CALL  6R0PWR(3,NZ,ZWLAST,P0WER) 

NZ=22 

C -  - -  - - 

C -  GROUP  6.  MOVING  GRID  OR  DISTORTED  (BODY-PITTED)  GRID  i 

C  —  MOVING  GRID  • 

C  M0RID,IZW1,IZW2,AZW2,BZW2,GZW2,PINT,ZW2M1T 

C— — - - - ; - 

C  -  BODY-FITTED  GRID  - 

C  BFC<.T.>,IGEN<)>,ND^1>,NBFC:<5000>,KOOIU),RCON 

C  BXFRAC(1-NX)<1.0,NXM1X0.0> 

C  BYFRAC(1-NY)<1.0,NYM1*0.0> 

.v,.; 

C  BZFRAC<1-NZ)<1.0,NZM1MO.O> 

C  SERVICE  SUBROUTINE  FOR  SUB-DOMAIN  SPECIFICATION  (FOR  IGENb) 

C  ONLY)« 

C  CALL  DOMAIN(ID,IXF,IXL,IYF,IYL,IZF,IZL) 

C  XE(1-NYP),1-NZP1,1-ND)<(NYP1XNZP1MND)X1.0>,  . 

C  XW(1-NYP1,1-NZP1,1-ND), 

C  YM(1-NXP1,1-NZP1,1-ND)<(NXPUINZP1XND)X1 .0>, 

C  YS(1-NXP1,1-NZP1,1-ND), 


127 


C  ZH< 1 -NXPl > 1 -NYP1 , 1 -ND )< (NXPl XNYP1 XND . 0>, 

C  ZL(1-NXP1,1-!IYP1,1-ND),ST0RSA(1-6)<6K.F.>,ST0RWD<1-6><63(.F.>, 

C  STORP< . F . > , STORPE< . F . >  >  STORPM< . F . > , STORPH< . F . > , STOUNV< . F . > , 

C  PRraFC<.F.>,DARCY,BFPLOT<.F.> 

C  CYCLIC  BOUNDARY  CONDITIONS  ARE  DEFAULTED  INACTIVE  ; 

C  TO  ACTIVATE  THEM  AT  SELECTED  IZ  SLABS  USE  SERVICE  SUBROUTINE* 

C  CALL  XCYIZdZ,  .TRUE . ) 

C  SERVICE  SUBROUTINE  TO  DEACTIVATE  CURVATURE  TERMS  IN  U,  V 

C  AND  W  EQUATIONS  ASSOCIATED  WITH  CURVATURE  OF  IX^  lY,  IZ 

C  GRID  LINES  RESPECTIVELY* 

C  '  CALL  UCURVECIZ, .FALSE.) 

C  CALL  VCURVE ( IZ , . FALSE . ) 

C  CALL  WCURVECIZ, .FALSE.) 

C  NCART<1> 

C  XWARNINGSililll 

C  - 

C  A)  WHEN  USING  BFCS  ST0VAR(H3),  ST0VAR(C4)>  ST0VAR(21)  ARE 

C  AVAILABLE  ONLY  FOR  STORING  NON-ORTHOGONAL  VELOCITY 

C  COMPONENTS. 

C  B)  MULTI-RUNS  ARE  NOT  ALLOWED  WITH  BFC  OPTION. 

C  C)  MOVING  GRID>TWO-PHASE  AND  PARABOLIC  OPTIONS  ARE  NOT 

C  AVAILABLE  WITH  BFC  OPTION. 

C  D)  KE-EP  TURBULENCE  MODEL  SHOULD  BE  USED  WITH  BFC’S  ONLY 

C  WHEN  THE  MAIN  FLOW  IS  IN  THE  IZ  DIRECTION. 

C  E)  BUILT-IN  GRAVITY  TERMS  DO  NOT  TAKE  ACCOUNT  OF  BFC'S. 

C  XNOTES 
C  - 

C  A)  THE  STANDARD  VELOCITY-FIELD  PRINTOUT  FOR  THE 

C  VELOCITY  RESOLUTES  IS  ACTIVATED  IN  THE  USUAL 

C  WAY.  AN  ADDITIONAL  OPTION  EXISTS  FOR  PRINTING  THE 

C  CARTESIAN  VELOCITY-COMPONENTS  WHICH  HAY  BE 

C  ACTIVATED  BY  SETTING  THE  FOLLOWING  LOGICALS* 

C  ST0VAR(U2)b.T.  for  U-COMPQNENT  (CARTESIAN) 

C  ST0VAR(V2)».T.  FOR  V-COMPONENT  (CARTESIAN) 

C  STOVAR(W2)».T.  FOR  W-COMPONENT  (CARTESIAN) 
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C  SIMILARLY  PRINTOUT  OF  N0N-0RTH060NAL  VELOCITY 

C  COMPONENTS  MAY  BE  ACTIVATED  AS  FOLLOWS* 

C  ST0VAR<C4)a.T.  FOR  U-COMPONENT  (NON-ORTHOB) 

C  ST0VAR<H3)».T.  FOR  V-COMPONENT  (NON-ORTHOG) 

C  ST0VAR(21)=.T.  FOR  W-COMPONENT  (NON-ORTHOB) 

C  B>  BFC  (TO  ACTIVATE  THE  BFC  OPTION) >  I6EN  (THE  CODE  FOR  METHOD 

C  OF  GRID  SPECIFICATION) »  ND  (NUMBER  OF  SUB-DOMAINS)  AND 

C  NBFC  (THE  FI  ARRAY  DIMENSION),  MUST  BE  SET  BEFORE 

C  "STANDARD  BFC  SECTION  2".  ====== 

C  ALL  OTHER  BFC  DATA  MUST  BE  SET  AFTER  "STANDARD  BFC 

C  SECTION  2.  ===== 

C  C)  NXP1,  NYP1,  NZP1  STORE  NX-t-1,  NY-t-1,  NZ-i-1;  THESE  ARE 

C  AVAILABLE  TO  USER  AFTER  STANDARD  BFC  SECTION  2. 

C  D)  FOR  I6EN=1  USE  BXFRAC,BYFRAC  &  BZFRAC  IN  PLACE  OF 

C  XFRAC,YFRAC  &  ZFRAC. 

C - - ^ - 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  1  STARTS* 

C  DEFAULT  SETTINGS* 

NCART=10 

BFC»,TRUE. 

I6EN=t 

ND=1 

NBFC=5000 

CXXXXXXXXXXXXXX:b(XXXXXXXXXXXXXXXXXXXXX  standard  BFC  SECTION  1  ENDS.* 

C  XUSER  SETS  BFC,  IGEN,  ND  AND  NBFC  HERE* 

C 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  2  STARTS* 
CALL  SB4I(NXP1  ,NX>1  ,NYP1  ,NY-(>1  ,NZP1  ,NZ+1 ,1,0) 

IF(BPC)  CALL  BFCDPT(NBFC,XE,XW,YN,YS,ZH,ZL,ND,NXP1,NYP1, 

&  NZP1,NZ) 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  BFC  SECTION  2  ENOS. 

C  XUSER  SETS  ALL  OTHER  BFC  VARIABLES  HERE* 

C  XUSING  NONIFORM  GRID  1-6 
GH=6.4E-3 
GL»9S.2E-3 
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6TL»1.24X0L 

6BETAa4. 

GBm=6BETA«.  1415927/180 
GTAB3TAN(GBETA) 

OELMAX=2.E-3 

GNBL=5. 

GPWR=2. 

DO  64  IY=1,S 

64  BYFRAC(IY)=(FL0AT(IY)/GNBL)X3EGPNRXDELMAX/( 1 0 .XGH) 
DEL-( 1 . -DELHAX/( 1 0 . XGKl )/(FLOAT(NY)-GNBL) 

DO  65  IY=6,NY 

65  BYFRAC<IY)=BYFRAC<IY-1)+DEL 
BZFRAC(l)=42.373E-3 

DO  66  IZ-2,8 

66  BZFRAC(IZ)s42.373E'-3-i-BZFRAC(IZ-l) 

DO  67  IZs=9,14 

67  BZFRAC<lZ)=84.75E-3+BZFRAC(IZ-l) 

DO  68  IZ=15,16 

68  BZFRAC(IZ)»42.373E-3<»>BZFRAC(IZ>1) 

DO  69  IZsl7,22 

69  BZFRAC(lZ}a1 1 .295E>3+BZFRAC(IZ*1 ) 

CALL  DOMAINC  U 1  bNY#  1  .NZ) 

DO  61  XXsI^NXPI 
DO  62  IY*1,NYP1 
ZL(1X»IY,1)»0.0 

62  ZH(IX,lY,l)sGTL 
DO  63  IZ»1>NZP1 
YN(IX,IZ,1)»10XQK 

63  YS(IX,ZZ,1)°0.0 
DO  663  IZ»6,20 

663  YSdX,  IZ>  1  )«(BZFRAC(IZ-1  )-BZFRAC(5)  }XGTABXGTL 
DO  664  IIZ°21,22 

664  YS<IX,nZ»1)»YS(IX/20»l) 

61  CONTINUE 

STORSA(IFIX(LON) }».TRUE. 
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ST0RSA(IFIX(HI6K) )a.TRUH. 

STORSA(IFIX(SOUTH) )=.TRUE. 

STORND(IFIX(SOUTH) }s.TRUE. 

PRTBFCa.TRUE. 

COAR  DARCY-1. El  0 

C -  -  - 

C -  GROUP  7.  BLOCKAQEi  BLOCK<.F.>,IPLANE»IPWRIT 

C  XSET  CONSTANT  POROSITIES  OVER  SUB-DOHAINS  USING i 
C  CALL  CONPOR(IR,TYPE,VALUE,IXP*IXL>IYF,IYL,IZF>IZL),  NHEREt 

C  IRsRUN  SECTION  NUMBER,  E.6.  1  FOR  RUN1  SECTION;  'TYPE'S  EAST, 

C  NEST,  NORTH,  SOUTH,  HIGH,  LOW  &  CELL.  ' VALUE '=WANTED  POROSITY 

C  OVER  REGION  IXF, . . . IZL . 

C  XOIMENSION  ARRAYS  PE(NX,NY,NZ),  PN(NX,NY,NZ),  PH(NX,NY,NZ),  & 

C  PC(NX,NY,NZ)  ABOVE. 

C  XFOR  FULLY'BLOCKED  CELLS  (IE.  'VALUE'S  0.0)  USER  NEED  SET  ONLY 
C  '  THE  'CELL'  POROSITY  (TO  ZERO),  AS  CELL-FACE  AREAS  ARE  THEN 
C  AUTOMATICALLY  ZEROED. 

C  XFOR  SATELLITE  PRINTOUT  OF  ALL  POROSITIES  IN  DOMAIN,  'IPLANE's 
C-  XPLANE  YPLANE  OR  ZPLANE,  FOR  DESIRED  CROSS-SECTION  DIRECTION. 

C  XFOR  EACH  'TYPE'  A  MAXIMUM  OF  10  CALLS  TO  CONPOR  IS  ALLOWED, 

C  BUT  IF  REQUIREMENTS  EXCEED  THIS  PROVISION  SET  BLOCXs.T.  S 
C  '  IPNRITs-1,  AND  SET  POROSITY  ARRAYS  EXPLICITLY  HERE  AS  WANTED. 
C  IN  THIS  CASE,  THE  USER  MUST  SET  A  L  L  ELEMENTS  OF  . 

C  ARRAYS  PE,  PN,  PH,  PC  (MANY  MAY  BE  0.0  OR  1.0).  HE  MAY  USEi 

C  CALL  CR(PARRAY,VALUE,IXF,IXL,IYF,IYL,IZF,IZL,NX,NY,NZ) 

C  ANY  NUMBER  OF  TIMES,  TO  SET  'PARRAY'  (»  PE,  ETC.)  TO 
C  'VALUE'  OVER  RANGE  IXF  TO  IXL,  lYF  TO  lYL,  IZF  TO  IZL. 

C  XCONPOR  MUST  NOT  BE  USED  IN  CONJUNCTION  WITH  EXPLICIT 
C  SETTINGS  OF  THE  ARRAYS  (INCLUDING  SETTINGS  VIA  CR). 

C - - -  - 

C—  GROUP  8. DEPENDENT  VARIABLES  TO  BE  SOLVED  FOR  OR  STORED  i 
C  S0LyAR(1-2S)<2SX,F.>,ST0VAR(1-25)<25X.F.>,C0NC1(1-4)<4X.T.> 

C  USE  FOLLOWING  NAMED  INTEGERS  FOR  ARRAY  ELEMENTS  1-20i 

C  PI ,PP,U1 ,U2,V1 ,V2,W1 ,W2,N1 ,M2,RS,KE,EP,H1 ,H2,H3,C1 ,C2,C3,C4. 

SOLVAR(P1)».TRUE. 
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SOLVAR(PP)».TRUE. 

SOLVARCVI )s.TRUE^ 

SOLVAR(Wl)=.TRUE. 

SOLVAR(H1 )-.TRUE. 

SOLVAR(KE)s.TRUE. 

SOLVAR(EP)«.TRUE. 

ST0VAR(V2)=.TRUE. 

ST0VAR(W2)=.TRUE. 

STOVAR(C1 )=.TRUE. 

ST0VAR(C2)=.TRUE. 

C -  -  - 

C -  GROUP  9.  VARIABLE  LABELS  t 

C  TITLE  ( 1  >25  )<2HP1 ,2HPP,2HU1  >2HU2»2HV1  >2HV2>2HNn2HW2>2HR1 , 

C  2HR2 , 2HRS  >  2HKE , 2HEP  >  2HH 1 , 2HH2  >  2HH3 , 2HC 1 >  2HC2 , 

C  2HC3>2HC4>2HRX,2HRY,2HRZ>  2X4HXXXX> 

C  TITLE  ( Cl)  MHMACK 

C  TITLE(C2)=»TEMP» 

C  TITLE<PP)a»RH01» 

C - - -  - 

C -  GROUP  10  PROPERTIES! 

C  IRH01<1>,IRH02<1>,RH01<1.0>,RH02<1.0>, 

C  ARH01<1.0>,BRH01<1.0>,CRH01<1.0> 

C  IEHU1<1>,EMU1<1.0>,EMULAH<1.E--10> 

C  IKSAT,H1SAT,H2SAT,PSATEX<1.0> 

C  SIOMA(1>2S)<1.0,2.0,1.»1.E10,1.»1.E10,1 w1.E10> 

C  4X1. 0,1. 314,1. 0,1.E10»10X1.0> 

IRH01«4 

PT0TS55.E5 

T0T=555.55 

RAIRB287. 

GAMAal .35 
CPbRAIR/(1-1/6AHA) 

TW«323. 

HWALL°TWMCP 

HTOTaCPXTOT 
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RHTOT=PTOT/TOT/RAIR 
LOGIC (87)=. TRUE. 

ARHOl =RHTOT/PTOT*K< 1/QAMA) 

BRH01=1 ./GAMA 
C  TURBULENT  FLOW 
IEMU1=2 
■  EMUl=4.E-5 
EMULAM=1.E-5 
SIGHA(24)=0.7 
SIGHA(14)=0.9 

C -  GROUP  11  ZNTER-PKASE  TRANSFER  PROCESSES  « 

C  ICFIP>CFIPS,IHOOT,CMOOT,CA1I<1 .E6>>CA2I<1 .E6> 

C - ; —  -  - 

C -  GROUP  12  SPECIAL  SOURCES  t 

C  ISPCS0(1-25) ,A6RAVX,A0RAVy,AGRAVZ.ABU0Y,HREP 

Q -  -  - 

C -  GROUP  13  INITIAL  FIELDS  t 

C  FIINIT<1-25)<25*1.E-10> 

C  MACH  NO.  OF  FREE  STREAM 
GHACH=3.2 

A>U(GAHA-1  )/2MGHACHMK2 
TE=TOT/A 

RHEsRHTOT/AMW  < 1 / ( OAMA-1 ) ) 

PSTAT=PTOT/A»*<  GAMA/ ( GAMA-1 ) ) 

RHO 1 =ARKO 1 XPSTATMXBRHO 1 
SONIC»SQRT( GAMAXRAIRKTE ) 

WIN«SONICXGHACK 
RKEIN=0.0001NWINXM2 
EPIN=0.16XRKEINMX1 .5/(2.0KGK) 

FIINITCWI )»WIN 
FIINIT(P1 )aPSTAT 
FIINIT(H1 >aHTOT 
FZINIT(KE)=RXEIN 
FIINIT(EP)=EPIN 
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C -  -  - 

C -  QROUP  14  BOUNDAKY/ZNTERNAL  CONDITIONS  < 

C  ILOOPl ,  ILOOPN,  XCYCLE< .  F .  >,  PBAR,  REGION  <1-10X10*. T.> 

C  XN.B.  ALL  10  REGIONS  ARE  DEFAULTED  .TRUE..  THE  USER  SHOULD 
C  SET  REGION(I)s.FALSE.  FOR  UNUSED  REGIONS  ’I*. 

DO  14  1=1 >10 
14  REOION(I)^. FALSE. 

c -  -  - : - 

C—  GROUP  15  TO  24  j  REGIONS  1  TO  10 

C -  ONLY  THOSE  REGIONS  ARE  ACTIVE  WHICH  ARE  SPECIFIED  BY  THE 

C  USER>  PREFERABLY  BY  WAY  OFi- 
C  CALL  PLACE(IREGN>TYPE>IXF,IXL>IYF>IYL>IZF>IZL)  & 

C  CALL  COVAL(IREGN>VARBLE>COEFF>VALUE) 

(iALL  PLACG(1>L0W.1>NX>1>NY>1>1) 

C  GALL  C0VAL(1>H1>FIXFLU>WIN*RHE) 

CDAR  CALL  COVALd >H1 > 1 .E-20> 1 .E+ZOMWINMRHE) 

6CM=2XGAMA/WIN/ ( GAMA-1 ) 

GVM=PTOT*RHE/RHTOT 
GALL  C0VAL(1>N1>0CM>GVM) 

CALL  COVALCUWUONLYHS.WZN) 

CALL  C0VAL<1>H1>0NLYMS>HT0T) 

CALL  C0VAL(1>XE>0NLYMS>RKEIN> 

C.ALL  COVALC 1  >  EP>  ONLYNS  >EPIN) 

CALL  PLACE(2, HIGH* 1 >NX> 1 ,NY>NZ>NZ) 

C  CALL  C0VAL<2*H1 .FIXVAL* PSTATMO . ) 

CALL  COVAL(2*M1*1O00KWINKRHB/PSTAT*PSTAT> 

C  WALL  ALONG  THE  VANE  IZ(6l22> 

GCM=CMU1 / ( . SMBYPRAC < 1) * 1 0 . MGH ) 

CALL  PLACE(3. SOUTH* UNX* 1*1. 6*22) 

ChLL  COVAL(3*W1*WALL*0.} 

CALL  C0VAL(3*H1.WALL*HWALL) 

CALL  COVAL<3*KE*WALL*0.> 

CALL  C0VAL(3*EP*WALL*0.) 

C -  -  - 

C -  GROUP  25  GROUND  STATION  i 
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C  6R0STA<.F.>,HAMLST<.F.> 

C  XNAHLST  ACTIVATES  NAMEUST  IN  GROmiD. 

6R0STA».TRT]E. 

C -  GROUP  26  SOLUTION  TYPE  AND  RELATED  PARAMETERS  t 

C  WHOLEP<.F.>,SUBPST<.F.>,DONACC<.F.> 

NHOLEP-.TRUE. 

C - - -  -  - 

GROUP  27  SWEEP  AND  ITERATION  NUMBERS  • 

C  FSWEEP<1>,LSWEEP<1>,LITHYD<1>,UTC<1>,LITKE<1>,UTH<1>, 

C  LITER(l-2S)<9l«1,-l,15Ml> 

C  IVELF<1>,NVEL<1>,IVELL<10000>, 

G  IKEF<1>»NXE<1>.IXEL<100QO>, 

C  IENTF<1>,NENT<1>,IENTL<10000>, 

G  ICNCP<1>,NGNG<1>*ICNGL<10000>» 

G  IRH01P<1>«NRH01<1>,1RN01L<10000>» 

G  IRH02F<1>.NRU02<1>*IRU02L<10900> 

LSN^P«100 
GSWP«LSWEEP 
GR  FSNEEP»200 

LITER(PP»20 
UTERm)'*2 
UTER<W1)«S 
LItERCK£)B2 
LXT£R(BP}«2 
C  LITHYD«2 

C - — - - - - -  - - - - — 

C - GROUP  20  TERMINATION  CRITERIA  I 

C  ENDXT(l-25J<9«t.E-10.0.5*lS>il.E-10> 

ENDIT(n»1.E-S 

G -  GROUP  29  RELAXATION  t 

C  RLXP<1 .>.RLXPXy<1 .>,RLXPZ<1 .>,RLXRH0<1 .>,RLXNDT<t .>, 

G  DTFALS(3-25)<23MT.E10> 

DTPALS(Wna1  .E~5 
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DTFALS(V1 )*1 .E-3 
bTFALS(KE)=1 .E-2 
DTFALS(EP)*1 .E-4 
RLXPa.2 

C -  -  - 

C -  GROUP  30  LIMITS  t 

C  VELMAX<1 .E10>,VELMIN<-1 .E10>,RHOMAX<1 .E10>,RHOMIN<1 .E-10>, 

C  •TKEMAX<1.E10>,TKEMIN<1.E-10>,EMUMAX<1.E10>,EMUMIN<1.E-10>, 

C  EPSMAX<1 .E10>,EPSMIN<1 .E-10>>AMDTMX<1 .E10>,AMDTMM<-1 .E10> 

C -  -  - 

C -  GROUP  31  SLOWING  DEVICES  »  SLORHO  n  .>,SL0EMU<1  .> 

SL0RH0=.5 

C - - - -  - - - 

C—  GROUP  32  PRINT-OUT  OF  VARIABLES  i 

C  PRINT(1-2S)<.T.,.F.,23».T.>,SUBWGR<.F.> 

PRINTCCDa.TRUE. 

PRINT (C2)=. TRUE. 

PRINT (PP)=. TRUE. 

C -  - -  - - - 

C -  GROUP  33  MONITOR  PRINT-OUT  « 

C  IXMON<1>,IYMON<1>,IZMON<l>,NPRMON<1>,NPRMNT<1> 

NPRM0N=5 
IYM0N=2  . 

IZM0N=5 

C - ; - - -  -  - 

C -  GROUP  34  FIELD  PRINT-OUT  CONTROL  i 

C  NPRINT< 1 00  > , NTPRIN< 1 00  > , NXPRIN< 1 > , NYPRXN< 1 > » NZPRIN< 1 > , 

C  IZPRF<1>,ISTPRF<1>,IZPRL<10000>,ISTPRL<10000> 

C  NUMCLS<10>.KOUTPT 

NPRINT=LSWEEP 
NUMCLS^S 

C -  -  - 

C -  GROUP  35  TABLE  CONTROL  < 

C  TABLES< .F. >,NTABL£,NTABVR,LINTAB,NPRTAB,NHON# 

C  ITAB<1-8),MTABVR(1-6) 


C - - -  - — -  - ; - 

C  GROUP  36-38  ARE  NOT  DOCUMENTED  IN  THE  INSTRUCTION 
C  MANUAL  AND  ARE  INTENDED  FOR  MAINTENANCE  PURPOSES  ONLY 

C -  GROUP  36  DEBUG  PRINT-OUT  SLAB  AND  TIME-STEP  t 

C  IZPR1 <1 >, IZPR2<1 >, ISTPRl <1 >> ISTPR2<1 > 

C -  -  - 

C -  GROUP  37  DEBUG  SHEEP  AMD  SUBROUTINES  i 

C  KEMU,  KMAIN,  KINDEX,  kGEOM>KINPUT,  KSODAT>  KCCMPF^KSORCE, 

C  KSOLV1  ,KS0LV2,KS0LV3,KC0MPP>KADJST>KFLUX,KSHIFT,KDIF, 

C  '  KCOMPU,KCOMPV>KCOMPW,KCOMPR>KMALL,XDBRHO<-1>,KDBEXP,KDBMDT 
C  KDBGEN 

C -  -  - 

C—  GROUP  38  MONITOR.TEST>AND  FLAG  > 

C  MONITR<.F.>,FLAG<.F.>,TEST<.T.>,KFUG<1> 

C  END  OF  MAINTENANCE-ONLY  SECTION 

C—  GROUP  39  ERROR  AND  RESIDUAL  PRINT-OUT  i 
C  IERRP<1000>,RESREF(U3-24)<259(1.>»RESHAP<.P.>, 

C  RESID(1-2S)<2«.F.,23K..T.>,K0UTPT 

RESREFd  )«WINXRHE 
RESREF(7)aNINHRESREF( 1 ) 

RESR£F(5)bWINKRESREF(1 )X0.1 
RESREF(H1 )«HTOTXRESREF( ^ ) 

RESREF(KE)«RKEXNXRESREF(1 ) 

RESREF(EP)«EPINKRESREF( 1) 

XERRP«LSHCEP/10 

KOUTPT«LSWEEP/tO 

(j— 

C —  GROUP  40  SPECIAL  DATA  •  LOOICd . .10),INTGR( 1 . . 10)»RE(21 . .30) » 

C  NLSP<1 > « NISP<1 > , NRSP< 1 > , SPDATA< . P . > » LSPOAC 1 ) » ISPDA( i ) , RSPDA(  1 ) 

C  USE  FIRST  10  ELEMENTS  OP  ARRAYS  LOGIC  6  XNTGR  AND  2 1ST 
G  TO  30TH  OF  ARRAY  RE  FOR  TRANSFERRING  SPECIAL  DATA  FROM 
C  SATELLITE  TO  GROUND »  BUT  IF  REQUIREMENTS  EXCEED  THIS 

C  PROVISION  SET  SPDATA  «  .T.,  AND  DIMENSION  ARRAYS  LSPDA. 

C  ISPOA,  RSPDA  ABOVE  AND  IN  GROUND  AS  NEEDED »  AND  SET  HERE 
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C - - - 

C -  GROUP  42  RESTARTS  AND  DUMPS  i  SAVEM<.F.>«RESTRT<.F.>,mPUT 

SAVEMs.TRUE. 

BFPLOTa.TRUE. 

C  RESTRT=.TRUE. 

C -  -  - 

C -  -  - - - 

C—  GROUP  43  GRAFFIC  « 

C  GRAPHS<  .  F  .  > ,  ORTHOG<  ♦  T .  > ,  ANTSYM,  NPRT<  1  > ,  ITITL<5X4HKX3tS(> 

C -  FOR  A  GRAFFIC  RUN*  DIMEHSIOK  PH11  &  PH12  AS  FOLLOWS: 

C  PHI1(NX)iNY)(NZ3fNM} 

C  PHI2((NX+2)X(NY-(‘2)X(NZ+2)X(NH+IBLK)}  ,  WHERE 

C  NM=NO.  OF  VARIABLES  STORED  +  DENSITYC-IES) 

C  IBLK=0  IF  BL0CXa.FALSE.>-4  IF  A  3D  RUN» 

C  S3  IF  A  2D.YZ  RUN. 

C -  -  - 

IF(IRUN.EQ.I)  GO  TO  900 
900  CONTINUE 
C -  ALL  RUNS 

CmXXXmXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  user  section  3  ENDS. 

cxxxxmxx.xxxxxxxxxxmxmxxxxxxxxxxxxx  standard  section  4  starts: 

c - 

c  write  general  data  on  to  the  gusiei .dta  tape,  etc. . . 

IF(SPDATA)  call  WRTSPC(LSPDA,NLSP,ISPDA,NISP,RSP0A,NRSP) 
IF(BLOCK)  CALL  WRTPOR(PE»PN»PH,PC,NX,NY,NZ,IPLANE) 

IF(BFC)  CALL  WRTBFC(14,NBFC.X£»XW,YN/YS,ZH,ZL, 

SND.NX+I  ,NYf1  ,NZ-i-1  .NZ.PRTBFC) 

C  OLD  PRACTICES  RETAINED  FOR  REFERENCE: 

C  IF(SPOATA)  CALL  SPCDAT(IRUN) 

C  IF(BLOCk)  CALL  POROAT(IRUN) 

IP(6RAPHS)  CALL  SORT(IRUN) 

IF(RESTRT)  GO  TO  902 
DO  901  lNDVARs1,25 

IFtIFIX(FIINIT(INOVAR)+0.1).NE. 10101)  GO  TO  901 
CALL  FLDDAT(IRUN) 
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00  TO  902 
901  CONTINUE 


902  CALL  DATAI0(WRT>10) 

IF(HONITR)  CALL  DATA10(WRT,-6) 
999  CONTINUE 
STOP 
END 

C3fXK  IGEN»1  SO  BFCXYZ  NOT  REQUIRED. 

CXXX  COMMENT  OUT  BOTH  VERSIONS. 

C - - - 

SUBROUTINE  BFCXYZ  (NXP1>NYP1,NZP1) 

RETURN 

END 
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APPENDIX  S. 

GROUND  PROGRAM  OF  PHOENICS  USED  IN  TURBULENT  FLOW  ANALYSIS 

C$DIRECTIVEKKMAIN 

C  GROUND  PROGRAM  OF  PHOENICS  USED  IN  TURBULENT  FLOW  ANALYSIS 
C  NZ-22  NY-25  LAMINAR  FLOW 

C  KFILE  NAME*  MODBFCGD.FTN 

C  XINCLUDE  DEO  SUBROUTINES*  THE  MODELS  OF  MAIN,  GROUND  &  STRIDE. 
C  XDOCUMENTATION*  PHOENICS  INSTRUCTION  MANUAL  (SPRING  1983) 

C  WITH  BODY-FITTED  COORDINATES  INSTRUCTION  SUPPLEMENT 

C  (SUMMER  1984). 

C  XSATELLITE  FILE  NAME*  MODSTL.FTN 

COMMON/ISHIFT/III (57 ) , NFMAX 

C  SET  F-ARRAY  DIMENSION  AS  NEEDED,  &  SET  NFMAX  ACCORDINGLY. 

C  FOR  BFC'S  ALSO  SET  F1 -ARRAY  DIMENSION  AS  NEEDED  ,AND  SET 

C  NF1MAX  ACCORDINGLY. 

COMMON/FOB/Fl (10000) 

COMMON/NFOB/NFIMAX 
COMMON  F(25000) 

NFMAX=25000 

NF1MAX=10000 

CALL  MAINl 

STOP 

END 

C$DIRECTIVEXXGROUND 

SUBROUTINE  OROUNO( IRN, ICHAP, ISTP, ISWP, IZED , INDVAR) 

INCLUDE  (CMN6US) 

INCLUDE  (GUSSEQ) 

C  INCLUDE  NMLIST 
LOGICAL  BFC 

EQUIVALENCE  ( LOGIC ( 20 ), BFC) 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  1  STARTS* 

C - 


140 


C-<-t"i”H-MEANIN6  OF  SUBROUTINE  ARGUMENTS  i 

C  IRNsRUN  NUMBER;  ICHAP»CHAPTER  CALLED;  ISTP^TIME  STEP; 

C  ISWP»SOLUTION  SWEEP;  IZED^Z-SLAB;  ZNDVAR<  SEE  CHAPTERS  BELOW. 
C-l-e-f-H-USER-INTRODUCEO  VARIABLES  &  ARRAYS  < 

C  TO  AVOID  CONFLICT  WITH  VARIABLE  NAMES  USED  IN  COMMON,  ALL  ‘ 
C  VARIABLES  INTRODUCED  BY  THE  USER  SHOULD  HAVE  NAMES  STARTING 
C  WITH  >G^  IF  REAL,  M'  IF  INTEGER,  AND  '6'  OR  M'  IF -LOGICAL. 

C  THUS  GDZdZ)  MIGHT  BE  A  Z-INTERVAL  ARRAY; 

C  GW1(IY,IX)  A  2-0  ARRAY  FOR  AXIAL  VELOCITY;  ETC. 

C  USER-GENERATED  SUBROUTINES  SHOULD  BE  NAMED  CORRESPONDINGLY, EG 

C  SUBROUTINE  GVISC(0TEMP,6CNC,0VSC),  FOR  COMPUTING  VISCOSITY 

C  FROM  CONCENTRATION  &  TEMPERATURE. 

C-i-i-f-i-t-GROUND-TO-EARTH  CONNECTING  SUBROUTINES! 

C  XUSE  GET(NAME,OARRAY,NY,NX)  TO  PUT  VALUES  OF  VARIABLE  NAMED 
C  ’NAME*  INTO  ARRAY  ’GARRAY’  DIMENSIONED  GARRAY(NY,NX) . 

C  XUSE  SET(NAME,IXF,IXL,IYF,IYL,6ARRAY,NY,NX)  TO  SET  VARIABLE 
C  'NAME'  TO  OARRAY(IY,IX)  OVER  THE  REGION t  IXF-IXL  St  lYF-IYL. 

C  XUSE  PRNSLB(NAME)  TO  PRINT  VARIABLE  'NAME'  OVER*X-Y  PLANE. 

C  XUSE  ADD(NAME,IXF,IXL,IYF,IYL,TYPE,CM,VM,CVAR,VVAR,NY,NX) 

C  TO  ADO  SOURCE  TO  VARIABLE  NAMED  'NAME'  (SEE  CHAPTER  5).  ' 

C  XUSE  READIZCIZED)  IN  CHAPTERS  1,  2,  8,  B  9  TO  ACCESS  PI,... DM 

C  &  VOL,...AHDZ.  (SEE  FOOTNOTE  TO  LEGALITY  TABLE) 

C  XUSE  6ET1D(NAME,GARRAY,NDIM>  TO  PUT  VARIABLE  NAMED  'NAME'  IN 
C  ONE-D  ARRAY  'OARRAY'  DIMENSIONED  NDIM,  THUSi 
C  CALL  GET1D(NAME,0NX,NX)  FOR  XG,...DXG  a  DIMENSION  ONX(NX}; 

C  CALL  6ET1D(NAME,0NY,NY)  FOR  Y6,...RV  B  DIMENSION  GNY(NY}; 

C  CALL  0ET1D(NAME,0NZ,NZ)  FOR  Z0,...W6RID  B  DIMENSION  ONZ(NZ). 
C44-+-i-«-LE6ALITY  TABLE  FOR  USE  OF  EARTH-CONNECTING  SUBROUTINES! 

C  ENTRIES  IN  TABLE  GIVE  CHAPTERS  IN  WHICH  SUBROUTINES  CAN  BE 

C  USED  FOR  VARIABLES  IN  LEFT-HAND  COLUMN.  (SUBROUTINE 

C  STRIDE  IS  REGARDED  AS  BEING  IN  CHAPTER  3) 

C  - 

C  !  VARIABLE!!  GET  B  !  SET  i  ADD  !  READIZ  !  GETID  ! 

C  !  ! I  PRNSLB  I  !  !  !  ! 

(J  - 

1A1 


c 

,  )pl  -  RZ  )) 

ALL 

6  &  7  ) 

5 

t 

1,2,8, 9) 

NONE 

c 

)P10  -  RZH)) 

3-7,  10-16 

3  ) 

NONE 

NONE  ) 

HONE 

c 

)VOL  -AHDZ) ) 

ALL 

3  ) 

NONE 

t 

1,2,8, 9) 

NONE 

c 

)D1DP  )) 

NONE 

10  t 

NONE 

i 

NONE  ) 

NONE 

c 

)020P  ) ) 

NONE 

11  ) 

NONE 

t 

NONE  . 

NONE 

c 

)MU1,MU1H  )) 

5,13-16 

12  ) 

NONE 

t 

NONE  ) 

NONE 

c 

)EXCO(L,H))) 

NONE 

13  ) 

NONE 

s 

■  NONE  ) 

NONE 

c 

)CFP  ) ) 

5 

14  ) 

NONE 

t 

NONE  ) 

NONE 

c 

)MDT  )) 

5 

15  ) 

NONE 

t 

NONE  ) 

NONE 

c 

)HST1,HST2)) 

5  &  15 

16  ) 

NONE 

i 

NONE  ) 

NONE 

c 

c 

)X0  -WGRID)) 

NONE 

NONE  > 

NONE 

t 

NONE  ) 

ALL 

C  NOTES  ON  ABOVE  TABLE) 

C  KIN  CHAPTERS  1,  2,  8>  &  9  VARIABLES  PI . . .OH  &  GEOMETRY 
C  VOL. . .AHOZ  CAN  BE  ACCESSED  BUT  ONLY  IN  CONJUNCTION  WITH 
C  USE  OF  REAOIZ,  THUS) 

C  DO  1  IZED^UNZ 

C  CALL  REAOIZ(IZED) 

C  1  CALL  GET (...  AS  REQUIRED..) 

C  XGEQMETRY  ACCESSED  BY  REAOIZ  IS  THAT  AT  INITIAL  TIME . 

C  )^01DP  &  D20P  ONLY  ACCESSIBLE  IN  UNSTEADY  FLOWS. 

C+++++GROUND  SERVICE  SUBROUTINES) 

C  XUSE  CONTUR(NAME,IPLANE,ILOC>NINT,I1,I2,JUJ2,OARRAY,NDIM)  FOR 

C  LINE-PRINTER  PLOTS  OF  CONTOURS,  ’NAME’  «  Ul,...C4i 

C  ’IPLANE’a  XPLANE,  YPLANE.  OR  ZPLANE)  ILOC  SETS  IX,  lY,  OR 
C  IZ  LOCATION  OF  IPLANE)  II,  12,  J1,  &  J2  SET  FIRST  &  LAST 

C  CELLS  IN  HORIZ.  &  VERV .  ON  PLOTl  6ARRAY  IS  1-0  WORKING  ARRAY 

C  OF  DIMENSION  NXXNY,  NXXNZ,  OR  NYXNZ  DXCTArED  BY  IPLANE)  & 

C  NDIM  SETS  VALUE  OF  DIMENSION  OF  GARRAY. 

C  XUSE  FLDZDAC TITLE, GARRAY, NY, NX)  TO  PRINT  ANY  ARRAY  DIMENSIONED 
C  QARRAY(NY.NX))  SET  ’TITLE’  TO  REQUIRED  NAME  (  4  HOLLERITH  • 

C  CHARACTE'^  ONLY). 

C  XUSE  FLO&DA(TITLE,GARRAY,NX,NY,NZ,IPLANE,ILOC)  TO  PRINT  ANY 

C  ARRAY  DIMENSIONED  GARRAY (NX, NY, NZ>  IN  PLANE  SPECIFIED  BY 

C  ’IPLANE’  &  ’ILOC’  AS  FOR  CONTUR  ABOVEl  SET  ’TITLE’  AS  FOR 
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FL020A. 

VARIABLE  NAMES  FOR  USE  IN  QROUNSt 

COMHON/TYPE/CELL.EAST, WEST,NORTH, SOUTH^HIGH, LOW>  VOLUME > WALL 
COMMON/VAR/PI ,PP>U1 ,U2,V1 ,V2>W1 ,W2,R1 ,R2>RSf 
4.12,EP,H1,H2,H3,C1,C2,C3>C4,RX,RY,RZ,SUS2 
COMMON/ VAROLD/P1 0 , PPO , U1 0 , U20, VI 0 « V20 , W1 0 , W20 , R1 0 , R20 > RSO , 
&KEO>EPO,H10,H20>H30,C10,C20>C30,C40,RXO^RYO,RZO,S10,S20 
COMMON/VARLOW/P1L, PPL^UI L>U2L> VI L, V2L,N1 L, W2L^R1 L*R2L,RSL» 
aKEL,EPL,H1L>H2L>H3L,C1L,C2L,C3L,C4L,RXL,RYL,RZL,S1L,S2L 
C0MM0N/VARHI/P1H,PPH,U1H>U2H,V1H,V2H,W1H>W2H»R1H,R2H,RSH^ 
&KEH,EPH>K1H,H2H>H3H,C1H,C2K,C3H,C4H>RXH>RYH,RZH,S1H,S2H 
COMMON/GMTRY/VOL,VOLO>AEAST,ANORTH,AHI6H,AEOX,ANDY,AHDZ 
COMMON/PROP/DI ,02>D1DP>D20P>MU1 ,NU1LAM,EXCO,CFP,NDT,HST1 ,HST2 
COMMON/PRPOLO/D 10,020 
COMHON/PRPLOW/Dl L>  D2L, EXCOL 
COMMON/PRPHI/0 1 H, D2H , MU1 K, EXCOH 
COMMON/VARNX/XG , XU, OXU, DXQ 
' COMMON/ VARNY/YG , YV , DYV , DYG , R, RV 
COMMON/VARNZ/ZQ , ZW1 , DZW, DZG , HGRib 
COMMON/GDMSCI/XPLANE, YPLANE, ZPLANE, ITNO 
C0MM0N/60MSCL/LSLAB , MSLAB , HSLAB , LAMMU 
REAL  NORTH, LOW 

INTEGER  P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS, 

&EP,K1 ,H2,H3,C1 ,C2,C3,C4,RX,RY,RZ,S1 ,S2 
INTEGER  P10,PPO,U10,U20,V10,V20,W10.W20,R10,R20,RSO, 
&EPO,H10,H20,H30,C10,C20,C30,C40,RXO,RYO,RZO,S10,S20 
INTEGER  P1L,PPL,U1L,U2L,V1L,V2L,N1L,W2L,R1L,R2L,RSL, 
aEPL,H1L,H2L,K3L,C1L,C2L,C3L,C4L,RXL,RYL,RZL,SlL,S2L 
INTEGER  P1H,PPH,U1H,U2K,V1K,V2H,W1H,W2H,R1H,R2H,RSH, 
aEPH,H1H,H2H,H3H,C1H,C2K,C3K,C4H,RXH,RYH,RZH,S1H,S2H 
INTEGER  VOL,VOLO,AEAST,ANORTH,AHIGH,AEOX,ANDY,AHOZ 
INTEGER  01 ,010P,02,020P,EXCO,CFP,HST1 ,HST2 
INTEGER  010,020,01L,02L,EXCOL,01K,02H,BXCOH 
INTEGER  X6,XU,0XU,0X0,Y0,YV,0YV,0Y0,R,RV,Z0,ZW1 ,OZW, 
aOZ6,WGRIO 


INTE0ER  XPLANE,YPLANE>ZPLANE 
LOGICAL  LSLAB,HSLAB,HSLAB>LAmiU»LSPOA 
EOUIVALENCE  (Ml ,R1 >, (H2>R2) 

C  SATLIT-EQUIVALENT  IRUNi 

EQUIVALENCE  ( IRUN,  1NTGR(  ID) 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXmXX  STANDARD  SECTION  1  ENDS. 

cxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxm  user  section  i  starts  t 
C  ARRAYS  (  dimensioned  NY, NX  )  FOR  USE  WITH  'ADD' i 

DIMENSION  CVAR(1,D,WAR(1,D,CM(1,D,VH(1,D,ZER0(1,D 
DIMENSION  GP(30,D,GH<30,D,GD(30,D,GV(30,D,GW(30,D 
1  >0MACH(30,D,0TEMP(30,D 

C  SPECIAL-DATA  ARRAYS  DIMENSIONED  &  DIMENSION  VALUES  SET  HEREi 
DIMENSION  LSPDA( 1 ) , ISPDA( 1 ) , RSPDA( 1 )  . 

C  USER  PLACES  HIS  VARIABLES,  ARRAYS,  EQUIVALENCES  ETC.  HERE. 
EQUIVALENCE  (RAIR,RE(21 ) ) , (GAMA,RE(22) ) , (GSNP,RE(23) ) 

DATA  NLSP,NISP,NRSP/1, 1,1/ 

DATA  CVAR,WAR,CM,VM,ZERO/5*0.0/ 

C  USER  PLACES  HIS  DATA  STATEMENTS  HERE. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  USER  SECTION  1  ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  2  STARTS < 
C  PLEASE  DO  NOT  ALTER,  OR  RE-SET,  ANY  OF  THE  REMAINING 
C  STATEMENTS  OF  THIS  SECTION. 

DATA  NUMCH4  /  0  / 

IF(SPDATA) 

&CALL  RDSPC(IRN,INTGR(12),LSPDA,NLSP,ISPDA,NISP,RSPDA,NRSP} 
CALL  ORDUTY(IRN,ICKAP,IZED,INDVAR) 

IF(BFC)  CALL  BFCORO(IRN,ICKAP,ISWP,IZED,INDVAR} 
IF(ICHAP.EQ.-5)  GO  TO  10 
IF(ICHAP.LE.O.OR.ICHAP.GT.16)  RETURN 
GO  TO  (100,200,300,4999,500,600,700,800,900,1000,1100,1200, 
81300,1400,1500,1600), ICHAP 
RETURN 

4999  NUHCH4°  NUMCH4  1 

IF  (M0D(NUHCH4,2).EQ.1)  GO  TO  400 
RETURN 
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CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  STANDARD  SECTION  2  ENDS. 

cxxxxxxxxxxxxxxxxxmxxmxxxmxxxxxxxx  user  section  2  starts  1 


CHAPTER  Ot  MODIFY  SATLIT  DATA,  AT  START  OF  EACH  IRN. 


10  CONTINUE 

C  IF( .NOT.NAHLST)  RETURN 

C  IFdRN.EQ.NRUN)  DATFIL». FALSE. 

C -  READ  SATLIT  DATA  NAMELIST  HERE 

C  CALL  NRIT40(40HENTER  NAMELIST  DATA  FOR  GROUPS  1  TO  24  ) 

C  R£AD(20,G1G24) 

C  CALL  NRIT40(40HENTER  NAMELIST  DATA  FOR  GROUPS  25  TO  42  ) 

C  READ(20,G25O42) 

RETURN 

C - - - - 

C  CHAPTER  1 i  CALLED  AT  THE  START  OF  EACH  TIME  STEP. 

C  SET  'DT*  HERE  NHEN  TLAST  SET  NEGATIVE  IN  BLOCK  DATA. 

C  *ATIME  -t-  DT'  GIVES  THE  END  TIME  OF  THE  CURRENT  TIME  STEP. 

C  NOT  ACCESSED  IF  STEADY, OR  PARABOLIC. 


100  CONTINUE 
RETURN 


CHAPTER  2 I  CALLED  AT  THE  START  OF  EACH  SWEEP. 


200  CONTINUE 
RETURN 


C  CHAPTER  3 1  CALLED  AT  THE  START  OF  EACH  SLABj 
C  NOT  ACCESSED  IF  PARABOLIC,  BUT  'STRIDE*  IS. 

C - - - 

300  CONTINUE 
RETURN 


C  VARIABLES  P1,...C4  AT  CURRENT  SLAB.  ITNQs  ITERATION  NUMBER. 

C - - - - - - - 

400  CONTINUE 
RETURN 

C - -i - - - - 

C  CHAPTER  5t  GROUND  CALLED  WHEN  SOURCE  TERM  IS  COMPUTED. 

C  INDVAR  GIVES  DEPENDENT  VARIABLE  IN  QUESTION  IE.  U1/...C4. 

C  TO  ADD  SOURCE  TO  DEPENDENT  VARIABLE  Cl (SAY)  FOR  IX>IXF>IXL 

C  AND  IY=IYF,IYL  INSERT  STATEMENT: 

C  IF ( INDVAR. EQ. Cl) 

C  &CALL  ADD(INDVAR,IXF,IXL,IYF,IYL,TYPE,CM,VM,CVAR,VVAR,NY,NX) 

C  NOTES  ON  'ADD*: 

C  KSOURCE“  (CVAR(IY,IX)+AMAX1(0.0,MASFL0))X(VVAR(IY,IX)“PHr), 

C  WHERE  'PHI*  IS  IN-CELL  VALUE  OF  VARIABLE  IN  QUESTION. 

C  K’MASFLO»=  CM(IY,IX)*(VM(IY,IX)-P), 

C  WHERE  'P*  IS  THE  IN-CELL  PRESSURE. 

C  XFOR  INDVAR=  M1>  OR  -M2,  SOURCE  ADDED  IS  'MASFLO*  ONLY, 

C  EXCEPT  FOR  ONEPHS=>.F.  &  MASFLO  <  0.0  (IE.  OUTFLOW)  WHEN 

C  CM(IY,IX)  IS  MULTIPLIED  BY  RlXDl  (FOR  Ml)  &  R2MD2  (FOR  M2). 

C  XBOTH  »CVAR'  Q  'CM*  ARE  MUTLIPLIED  BY  CSLL»GEOMETRY  QUANTITY 
C  DICTATED  BY  SETTING  OF  'TYPE'  (^CELL,  EAST  AREA, . .VOLUME) . 

C  XTYPE-SPECIFIED  AREAS  ARE  CALCULATED  AS  IF  BLOCKAGE  ABSENT, 

C  BUT  'VOLUME'  WITH  ACCOUNT  FOR  ITS  PRESENCE. 

C  XFOR  ALL  SOLVED  VARIABLES,  INCLUDE  DING  Ml  (  &  M2  WHEN  ONEPHS»F), 

C  IF  'CM'>  0.0  CALL  'ADD')  FOR  Ml  &  M2  ALTHOUGH  'CVAR'  &  'WAR' 

C  HAVE  NO  SIGNIFICANCE  THEY  MUST  BE  ENTERED  AS  ARGUMENTS. 

C  X'CVAR',  'WAR',  'CM'  &  'VM'  MUST  BE  DIMENSIONED  NY, NX. 

C - - 

500  CONTINUE 
RETURN 

C - - - 

C  CHAPTER  6:  CALLED  AT  THE  END  OF  EACH  VARIABLE-RECALCULATION 
C  CYCLE  COMMI^'NCED  AT  CHAPTER  4.  IITIO  »  ITERATION  NUMBER. 

C - - - 


600  CONTINUE 


c 

c 

c 


RETURN 


CHAPTER  7<  GALLED  AT  END  OF  EACH  SLAB>NISE  CALCULATION. 


700  CONTINUE 

IF(FL0AT(ISWP).LT.6SWP)  RETURN 
CALL  GET(P1,GP,NY,NX) 

CALL  GET(HUGH>Ny,NX) 

CALL  GET(DnGO,NY,NX) 

CALL  GETm,GV,NY,NX) 

CALL  GET(N1>6W,Ny,NX) 

DO  701  1=1, NY 

GSON=SQRT<GAMA*GP(I, 1 )/GD<I, 1 ) ) 
GAV=SQRT(GV<I,  1  )*«+GW(1, 1  )K»a) 

GMACHCI, 1 )=GAV/OSON 

701  GTEMP(t,1)=GP<I,1)/GD<I,1)/RAIR 
CALL  SET(C1,1,NX,1,NY,GMACH,NY,NX> 

CALL  SET(C2,1,NX,1,NYfGTEIlP,NY,NX} 

RETURN 

C - 

C  CHAPTER  8 1  CALLED  AT  THE  END  OF  EACH  SWEEP j 
C  NOT  ACCESSED  IF  PARABOLIC. 

C - - - 

800  CONTINUE 
RETURN 


C  CHAPTER  9 1  CALLED  AT  THE  END  OF  EACH  TINE  STEP; 
C  NOT  ACCESSED  IF  PARABOLIC. 

C - - - 


900  CONTINUE 
RETURN 

C  CHAPTER  10 •  SET  PHASE  1  DENSITY  HERE  WHEN  IRH01=-1  IN  DATA. 
C  SET  CURRENT-Z  'SLAB'  DENSITY,  D1,  IP  HSLAB=.T.. 

C  EG.  IP(HSLAB)  CALL  SET(D1,1,NX,1,NY,GD1,NY,NX>. 
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C  SET  NEXT  LARGER-Z  *SLAB^  DENSITY,  01H,  I?  HSLAB^.T.  &  PARAB=F 
C  EG.  IF(HSLAB)  CALL  SET(D1H,1,NX,:,NY,GD1H,NY,NX). 

C  SET  D(LN(D1))/DP  (IE.  DIOP)  FOR  UNSTEADY  FLOW, 

C  EG.  IF(HSLAB)  CALL  SET(01DP,1,NX,1,NY,GD1DP,NY,NX). 

C - 

1000  CONTINUE 
RETURN 

C - - - 

C  CHAPTER  11  *  SET  PHASE  2  DENSITY  HERE  WHEN  IRH02»-1  IN  DATA. 

C  SET  CURRENT-Z  ’SLAB’  DENSITY,  D2,  IF  HSLAB».T., 

C  EG.  IF(HSLAB)  CALL  SET(D2,1,NX,1,NY,GD2,NY,NX). 

C  SET  NEXT  LARGER-Z  ^SLAB*  DENSITY,  02H,  IF  HSLAB«.T.  &  PARAB^F 
C  .  EG.  IFCHSLAB)  CALL  SET(02K,1,NX,1,NY,602H,NY,NX). 

C  SET  0(LN(D2))/DP  FOR  UNSTEADY  FLOW, 

C  EG.  IF(MSLAB)  CALL  SET(D20P.1,NX,1,NY,G02DP,NY,NX). 

1100  CONTINUE 
RETURN 

C - - - - - - - ........ - — 

C  CHAPTER  12i  SET  PHASE  1  VISCOSITY- HERE  WHEN  ZEHU1>-1  IN  DATA. 
C  SET  CURRENT-Z  ’SLAB*  VISCOSITY  (HUD,  IF  HSLAB-.T., 

C  EG.  IF(MSLAB)  CALL  SET(NU1,1,NX,1.NY,GVISC.NY,NX); 

C  SET  NEXT  LARGER-Z  ’SLAB’  VISC.  (HU1U),  IP  HSLAB-.T.  &  PARABaF 
C  EG.  IF(HSLAB)  CALL  SET(NU1H,1,NX,1,NY,GVSGH,NY,NX). 

C 

C  CHAPTER  ALSO  ACCESSED  WHEN  ENULAM»-1.0  IN  DATA,  SO  THAT  THE 
C  LAMINAR  VISCOSITY  WHICH  APPEARS  IN  WALL  FUNCTIONS  ft  IN  THE 
C  XE-EP  TURBULENCE  MODEL  (IEHU1»2)  HAY  BE  SET  NON-CONSTANT. 

C  SET  CURRENT-Z  ’SLAB’  VALUE  (NU1LAM)  WHEN  LANHU«.T., 

C  EG.  IF(LAMNU)  CALL  SET(HU1LAH,1,NX,1,NY,GVSCL,NY,NX). 

C - - - - - - - - 

1200  CONTINUE 
RETURN 

C - - - - - - - 

C  CHAPTER  13 •  SET  EXCHANGE  COEFFICIENT  (E.C.)  FOR  VARIABLE 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


ZNDVAR  WHEN  SI6MA(INDVAR)»H  .0  IN  DATA. 

SET  CURRENT-Z  'SLAB*  E.C.  (EXCO)  IF  MSLAB».T., 

E6.  IF(MSLAB)  CALL  SET(EXCO,nNX,1,Ny,QEXCO,NY,NX) . 

SET  NEXT  SHALLER-Z  'SLAB^  E.C.  (EXCOL)  IF  LSLAB^.T., 

EG.  IF(LSLAB)  CALL  SET(EXCOL,1/NX,1>Ny,OEXCOL,NY,NX). 

SET  NEXT  LAR6ER-Z  'SLAB*  E.C.  <EXCOH)  IF  HSLAB>.7., 

EG.  IF(HSLAB)  CALL  SET(EXC0H,1>NXp1,Ny>6EXC0K>NY«NX). 

NOTE I  FOR  MSLAB.  INDVAR>U1> . .C4;  FOR  LSLABt  INDVAR»U1L, , .C4L 
&  FOR  HSLAB*  INDVAR=U1H* . .C4K.  IF  PARAB^.T.  SET  MSLAB  ONLY. 


1300  CONTINUE 
RETURN 


CHAPTER  14i  SET  INTER-PHASE  FRICTION  COEFFICIENT  (CFP)  HERE 
WHEN  ICFIP  a  -1  IN  DATA;  ITS  UNITS  »  FORCE  /  (CELL  »  RELATIVE 
SPEED  OP  PHASES). 

1400  CONTINUE 
RETURN 


CHAPTER  1S<  SET  INTER-PHASE  KASS-TRANSFER  RATE  PER  CELL  (NOT) 
HERE  WHEN  XNDOT  •  -1  IN  DATA. 


1500  CONTINUE 
RETURN 

CHAPTER  16t  SET  HERE  PHASE  1  i  2  SATURATION  ENTHALPIES 
(  HST1  A  HST2)  WHEN  IHSAT  •  -1  IN  DATA. 

1600  CONTINUE 
RETURN 
END 
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.L*-  a' 


APPENDTX  H 

TURBULENT  OUTPUT  FLOW  FIELD 

DATA  TAKEN  FROM  DEFAULT. OTA  ON  GROUP  A/C 
FILE  MODSTL.FTN  IS  THE  SATLIT  USED. 

BODY-FITTED-COORDINATE  OPTION  ACTIVE 


FI  ARRAY  IS  DIMENSIONED  TO  a  5000 

MINIMUM  ALLOWABLE  DIMENSION  FOR  FI  »  1318 
FLOW  FIELD  AT,  ISWEEP=  100,  ISTEP=  1 
FIELD  VALUES  OF  M  (mach) 


IY=25 

3.200E-fOO 

3.200E-(-00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=24 

3.200E-t-00 

3.200E+00 

3.200E+0C 

3.200E+0C 

3.200E+00 

IY=23 

3.200E-I-00 

3.2005+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=22 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY--21 

3.200E-t-00 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=20 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=19 

3.200E‘<>00 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=18 

3.200E-t-00 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=17 

3.200E-»-00 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY-16 

3.200E+00 

3,200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

IY=15 

3.200E-»-00 

3.200E+00 

3.200E+00 

3.200E+00 

3.199E+00 

IY=14 

3.200n+00 

3.200E+00 

3.200E+00 

3.200E+00 

3.199E+00 

IYa13 

3.200E400 

3.2005+00 

3.200E+00 

3.200E+00 

3.199E+00 

IY=12 

3.200E-<-00 

3.200E+00 

3.200E+00 

3.200E+00 

3.199E+00 

IY=11 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

3.199E+00 

IY=10 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

3.199E+00 

II 

M 

3.200E+00 

3.200E+00 

3.200E+00 

3.200E+00 

3.19BE+00 

IY=  8 

3.200E-«-00 

3.200E+C0 

3.200E+00 

3.200E+00 

3.197E+00 

IY=  7 

3.200E-«-00 

3.200E+00 

3.200E+00 

3.199G+00 

3.194E+00 

IY=  6 

3.200E-«-00 

3.200E+00 

3.200E+00 

3.198E+00 

3.183E+00 

IY=  5 

3.200E-<-00 

3.200E+00 

3.200E+00 

3.196E+00 

3.1S7E+00 

lYa  4 

3.200E+00 

3.200E+00 

3.200E+00 

3.195E+00 

3.144E+00 
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lY*  3 

3.200E+00 

3.200E4>00 

3.200E+00 

3.195E-i>00 

3.132E+00 

lY*  2 

3.200E'i-00 

3.200E+00 

3.199E-i'00 

3.19SE+00 

3.121E-<00 

IY=  1 

3.200E-i>00 

3.200E+00 

3.199E4^00 

3.195E-(-00 

S.IME+OO 

IZ= 

1 

2 

3 

S 

IY=25 

3.200E4-00 

3.200E-<-00 

3.200E+00 

3.200E+00 

3.200E‘t-00 

IY=24 

3.200E-t-00 

3.200E-I-00 

3.200E'i-00 

3.200E+00 

S.EOOE-t-OO 

IY=23 

3.200E+00 

3.200E400 

3.200E4>00 

3.200E'l'00 

3.200E-i>00 

IY=22 

3.200E-i'00 

3.200E+00 

3.200E+00 

3.200E-«-00 

3.200E'<-00 

IY=21 

3.200E'l-00 

3.200E<t-00 

3.200E4-00 

3.199E+00 

3.t99E+00 

IY=20 

3.199E-t-00 

3.199E4>00 

3.199E+00 

3.199E+00 

3.199E>00 

IY=19 

3.199E+00 

3.199E+00 

3.199E-^00 

3.199E'i’00 

3.199E+00 

IY*18 

3.199E-t^00 

3.199E'»00 

3.199E+00 

3.199E+00 

3.l98E-t’00 

IY=17 

3.199E-t-00 

3.199E<i>00 

3.199£-t-00 

3  j98Em 

3.197E+00 

IYa16 

3.198E-»>00 

3.198E+00 

3.198E+00 

3.198E+00 

3.196B+00 

IY=15 

3.198E’t-00 

3.198E’i-00 

3.198E+00 

3.197E+00 

3.194E+00 

IY=14 

3.198B+00 

3.197E-t-00 

3.197E+00 

3.19SS't<eO 

3.191E+00 

lYa13 

3.197E<t-00 

3.197Em 

3.196E'l-00 

3.193E<i>00 

3.t85E+00 

IY=12 

3.197E+00 

3.196E’»-00 

3.195E'l-00 

3.189E400 

3.t76E+00 

mil 

3.196E+00 

3.19SE4>00 

3.192E’«-00 

3.181BtOO 

3.160Em 

IY«10 

.  3,19SE+00 

3.194B'»>00 

3.187E't>00 

3.168E4-00 

3.136E4^00 

lYa  9 

3.193B400 

3.190E+00 

3.t76E<»'00 

3.144E’t’00 

S.IGIEm 

IY»  8 

3.190Et00 

3.181E4>00 

3.154E't>00  . 

3.106B'*’00 

3.06OE^00 

IY«  7 

3.179B+00 

3.t56E^00 

3.n2E4>00 

3.058EV00 

3.022E4>00 

IY«  6 

3.146E4>00 

3.097E400 

3.045E<^00 

S.OiOE+OO 

3.002E4-00 

IY«  S 

3.082Et00 

S.OSOE't'OO 

3.012E<»>00 

S.OIOBfOO 

3.008E4>00 

lY*  4 

3.0SQE’»‘Q0 

3.010S>00 

S.OOSE^OO 

3.007B4-00 

2.999E4^00 

lY*  3 

3.022E'«>80 

2.997B400 

2.99SE+00 

2.972E‘t>06 

2.894S^OO 

lY*  2 

2.99SE‘»^00 

2.946E400 

2.d91E‘t>00 

2.726E4^00 

2.652E400 

XY»  1 

2.5S6E-»>00 

2.23SEt00 

2.046Em 

2.069£4>00 

2.0e4E400 

IZ= 

6 

7 

8 

9 

10 

IVa25 

3.200E>00 

3.20QE^00 

3.199E«00 

3.199B*05 

3.199E400 

IYa24 

3.200E>00 

3.200E400 

3.199E'»00 

3.t>9E+00 

3.198Em 

IY«23 

3.200E4>00 

3.199E>00 

3.199E^00 

5.19aE+00 

3.19dE400 

lY^^az 

3.199E4^00 

3.199Em 

5.198E4>00 

3.197E+00 

3.196B+00 

IY«21 

3.199E4^00 

3.198E*00 

3.197E>00 

.“.195E^OO 

3.194E400 

1SI 


iy=2o 

3.199E+00 

3.198E-i-00 

3.196E-I-00 

3.193E-I-00 

3.191E-I-00 

IY=19 

3.198E+00 

3.196E-I-00 

3.193E-<-0C 

3.189E-I-00 

3.185E-i-00 

IY«18 

3.197E+00 

3.194E-»-0C 

3.189E-I-00 

3.183E-t-00 

3.177E-J-00 

IY=17 

3.195E+00 

3.191E+00 

3.183E-t-00 

3.173E-J-00 

3.166E-I-00 

IY=16 

3.193E+00 

3.185E-f00 

3.173E■^00 

3.160E-<-00 

3.150E•^00 

iy=is 

3.188E+00 

3.177E-I-00 

3.160E+00 

3.141E■^00 

3.129E-t-00 

IY=14 

3.181E+00 

3.165E+00 

3.141E-f00 

3.118E+00 

3.103E-I-00 

IY=13 

3.170E+00 

3.146E-f00 

3.117E-»“00 

3.091E-I-00 

3.076E-I-00 

IY=12 

3.153E+00 

3.122E-I-08 

3.089E-f00 

3.064E-t-00 

3.051E-I-00 

IY=n 

3.128E-<-00 

3.092E-I-00 

3.060E-I-00 

3.040E-i-00 

3.03^E•^00 

IY=10 

3.097E+00 

3.061E-t-00 

a.oasE-i-oo 

3.022E-)-00 

3.018E-I-00 

lYa  9 

3.061E'i>00 

3.033E-*-00 

3.017E+00 

3.012E•^00 

3.011E•^00 

IY=»  8 

3.029E-«-00 

3.013E-^00 

3.008E-I-00 

3.007E•^00 

3.008E•^00 

lYs  7 

3.008E+00 

3.004E-(-00 

3.004E-i-00 

3.(t05E-*-00 

3.007B-I-00 

iy=  6 

3.0021-^00 

3.003E-<-00 

3.003E->-00 

3.004E-<-00 

3.006E-i-00 

IY3  5 

3.005E-i-00 

3.002E^0Q 

2.997E+00 

2.990E+00 

2.9d6S-^00 

IY=  4 

2.9a2E-»-Q0 

2.954E-t-00 

2.913E4^00 

2.86SE-t-00 

2.842E-t-00 

lY-  3 

2.801E-t-00 

2.728E-i-00 

2.680E-t-00 

2.649B't-00 

2.837E-<-00 

IY=  2 

2.621E-t-00 

2.588E-t-00 

2.557E+00 

2.531E-t-00 

2.521E-«-0C 

IY=»  1 

2.069E-t-00 

2.048E'»-00 

2.026E-t>00 

2.086S4-00 

1.997E+00 

IZ= 

11 

12 

13 

14 

15 

tYa25 

3.19SE^00 

3.198E+00 

.3.198E-»-00 

3.198E4-00 

3.198E+00 

IY»24 

3.198E->00 

3.198E+00 

3.198E-»0b 

3.198E-t>00 

3,198E+00 

1Y«23 

3.197B■^00 

3.197E+00 

3.197E+00 

3.197B+00 

3.197E+00 

XY*22 

3.196E-t-a0 

3.1SSE+P0 

3.195Em 

3.196B4-00 

3.196E-*-00 

IY»2r 

3.193B+00 

3.193E-t-00 

3.193E+00 

3.193E+00 

3.193E-i-00 

iy«20 

3.189B+00 

3.109B+00 

3.188E^00 

3.189E+00 

3.189E-»-00 

IY»19 

3.183E^00 

3.182E^00 

3.182E■^00 

3.1d2E-»-00 

3.183E-t-00 

1Y“18 

3.174E-t-00 

3.173E+00 

3.172E4-00 

3.172E-^00 

3.174E+00 

IY«r/ 

3.161E-^00 

3.1S9B-^00 

3.156E^00 

3.1S8E+00 

3.160E+00 

lYa16 

3.143E4-00 

3.14lE-»-00 

3.139E+00 

3.139Ef00 

3.142E+00 

1Y«1S 

3.120E4-00 

3.118E^00 

3.116B+00 

3.118S-*“00 

3.120E+00 

IY=14 

3.094Ef00 

3.091E+00 

3.090E+00 

3.090E+00 

3.09SB4-00 

lYalS 

3.067E■^00 

3.065E-^00 

3.065E+00 

3.066E+00 

3.073E4^00 

lYal2 

3.044E4-00 

3.044E+00 

3.044E^O0 

3.046E-I-00 

3.055E-t-00 

IY»11 

3.027E+00 

3.028E+00 

3.030E+00 

3.033E+00 

3.043E+00 

IY=10 

3.017E+00 

3.019E-(>00 

3.022E'>-00 

3.026E+00 

3.036E+00 

IY=  9 

3.012E-I-00 

3.015E-t-00 

3.019E-t>00 

3.023E-t-00 

3.033E+00 

IY=  8 

3.010E+00 

3.014E>00 

3.018E+00 

3.022E-<-00 

3.031E+00 

t>. 

II 

►* 

•H 

3.010E+00 

3.013E+00 

3.017E+00 

3.020E+00 

3.028E-I-00 

IY=  6 

3.008E-I-00 

3.011E+00 

3.015E+00 

3.020E+00 

3.028E+00 

IY=  5 

2.983E+00 

2.985E+00 

2.990E-i-00 

3.001E+00 

3.005E-i-00 

IY=  4 

2.820E+00 

2.818E+00 

2.820E+00 

2.835E-t-00 

2.848E-I-00 

IY=  3 

2.628E+00 

2.629E-i-00 

2.636E-l‘00 

2.670E-t-00 

2.707E+00 

IY=  2 

2.513E+00 

2.515E+00 

2.523E+00 

2.574E+00 

2.616E-<-00 

IY=  1 

1.990E-i-00 

1.992E-t-00 

E.OOOE-i'OO 

2.082E‘i'00 

2.127E+00 

1Z= 

16 

17 

18 

19 

20 

IY=2S 

3.194E+00 

3.194E4-00 

IY=24 

3.153E+00 

3.154E+00 

IYs23 

3.077E+00 

3.078E‘(‘00 

IY=22 

2.971E-t>00 

2.973E400 

IY=21 

2.845E-t-00 

2.848E4-00 

IY*20 

2.705E-t>00 

2.711E+00 

IYa19 

^.559E•I■00 

2.S67E+00 

IYa18 

2.409E<t-00 

2.422E-i-00 

IY-17 

2.259E-t>Q0 

2.277E<^00 

IYS16 

2.108E't>00 

2.134E'<-00 

1Y=15 

1.960E'('00 

1.993E’<-00 

• 

•• 

• 

IY*14 

1.817E+00 

1.8S6E'l'00 

IY»13 

1.683E+00 

1.727E+00 

XY«12 

1.562E+00 

1 .609E4-00 

IY«n 

1.458E+00 

1 .503E+00 

lYalO 

1.367E+00 

1.410E+00 

1Y»  9 

1.289E^00 

1.328E>00 

lYa  8 

1.220E^O0 

1 .254E4^00 

IY»  7 

1.1S7EtOO 

1.186E-«-00 

lY*  6 

I.IOOE't’OO 

1 .121E4-00 

1Y»  5 

1.058E+00 

1.069E<«‘00 

1Y»  4 

1.006E4-00 

I.OISE-t-OO 

lYa  3 

9.719E-01 

9.797E-01 
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lYa  2 

9.641E-01 

9.697E-01 

IY=  1 

8.192E-01 

8.283E~01 

IZ= 

21 

22 

FIELD  VALUES  OF  T  (tenprature) 

IY=25 

1.990E+02 

1 .990E-t-02 

1 .990E+02 

1.990E+02 

1.990E+02 

IY=24 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E+02 

IYS23 

1.990E+02 

1.990E-(-02 

1 .990E+02 

1.990E+02 

1.990E+02 

IY»22 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E+02 

IYa21 

1.990E+02 

1.990E-(-02 

1 .990E+02 

1.990E+02 

1.990E+02 

IYa20 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E-t-02 

1.990E+02 

IY=19 

1.990E+02 

1.990E-t‘02 

1.990E+02 

1.990E-I-02 

1.990E+02 

lYalS 

1.990E-I-02 

1.990E+02 

1 .990E+02 

1.990E+02 

1.990E+02 

IY=17 

1.990E-I-02 

1 .990E+02 

1.99QE-I-02 

1.990E-i-02 

1.990E+02 

IY=16 

1.990E+02 

1 .990E-I-02 

1.990E-t-02 

1 .990E-t-02 

1.990E+02 

IY=15 

1.990Em 

1.990Em 

1.990E+02 

1.990Em 

1.990E+02 

IY=14 

1 .990E-i-02 

1.990Em 

1.990E-f02 

1 .990E’«>02 

1.990E+02 

IY=13 

1.990E+02 

1.990E-t-02 

1.990Em 

1.990E+02 

1.990E-<-02 

IYs12 

1.990E-I-02 

1.990E+02 

1.990E-t-02 

1.990E+02 

1 .990E-4-02 

lYall 

1.990E-«>02 

1.990E-i-02 

1.990Em 

1.990E’«>02 

1.990E+02 

lYalO 

1.990E<»-02 

1.990E'»>02 

1.990E+02 

1 .990E+02 

1.990Em 

lYa  9 

1.990E<t>02 

1.990Em 

1.990E+02 

1.990E-I-02 

1.990E+02 

lY*  8 

1.990E-«’02 

1 .990E+02 

1.990E-I-02 

1.990S+02 

1.990E+02 

lYa  7 

1.990Em 

1.990Em 

1.990Em 

■  1.990E+b2 

1.991Em 

IY»  6 

1.990Em 

1.990E+02 

1.990E+02 

1.990E'l>02 

1.993E-I-02 

lY*  5 

I.990E<«-02 

1 .990E't-02 

1.990Em 

1.990Em 

1.997E+02 

IY=  4 

1.990E4>02 

1.990E+02 

1.990E+02 

1.990E-l>02 

1.998Em 

lYa  3 

1.990Em 

1.990E'<’02 

1 .990E4>02 

1.990Em 

1.999Em 

lYa  2 

1.990Em 

1.990E+02 

1 .990E>02 

1.990E-i>02 

1.999E+02 

lY"  1 

1.990Em 

1.990Em 

1.990Em 

1.990E-t>02 

1.999E+02 

IZ= 

1 

2 

3 

4 

5 

1Y=25 

1 .990E'f02 

1.990E-»02 

1.990Em 

1 .990E+02 

1.990E-t>02 

1Y=«24 

1.990Em 

1.990E+02 

1.990E4-02 

1 .990E^02 

1.990E4>02 

1Y=23 

1.990Em 

1 .990E+02 

1.990Em 

1.990E402 

1.990E+02 

IY»22 

1 .990E^02 

1.990E+02 

1.990Em 

1 .990E-t>02 

1 .990E+Q2 

IY*21 

t.990Em 

1 .990E+02 

1 .990E<t-02 

1.990Ef02 

1.990E4-02 
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IY=20 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E+02 

1.990E+02 

IY=19 

1 .990E+02 

1.990E+02 

1 .990E+02 

1 .990E+02 

1.990E+02 

IY=18 

1.990E+02 

1.990E-i-02 

1.990E+02 

1.990E+02 

1.990E+02 

IYsl7 

1 .990E+02 

1.990E+02 

1.990E+02 

1 .990E+02 

1.990E+02 

IY=16 

1,990E+02 

1 .990E+02 

1.990E-I-02 

1 .990E+02 

1.991E+02 

IY=15 

1.990E+02 

1.990E+02 

1.990E+02 

1 .990E-l'02 

1.992E+02 

IY=14 

1.990E-i-02 

1.99dE-i-02 

1.990E+02 

1 .991E+02 

1.993E+02 

IY=13 

1.990E-(-02 

1.990E+02 

1.990E-t'02 

1 .991E+02 

1.996E+02 

IY=12 

1.990E+02 

1.990E+02 

1.990E+02 

1 .993E-I-02 

2.001E-I-02 

IY=n 

1.990E-(-02 

1.990E+02 

1.991E+02 

1 .997E+02 

2.011E-i-02 

IY=10 

1.990E+02 

1.991E+02 

1.993E+02 

2.004E+02 

2.028E+02 

IY=  9 

1.990E-)-02 

1.992E-t-02 

1.997E+02 

2.019E+02 

2.054E-<-02 

IY=  8 

1 .992E-<-02 

1.996E+02 

2.008E+02 

2.046E-I-02 

2.090E+02 

IY=  7 

1 .996E<«‘02 

2.010E-t-02 

2.036E+02 

2.090E+02 

2.130E+02 

IY=  6 

E.OlSEm 

2.051E+02 

2.096E+02 

2.142E-I-02 

2.156Em 

IY=  5 

2.060E+02 

2.123E-t-02 

2.150E+02 

2.153E+02 

2.155E-i-02 

IY=  4 

2.090E-»-02 

2.147E+02 

2.160Em 

Z.ISBEm 

2.154E-«-02 

IY=  3 

2.122E-<-02 

2.160E+02 

2.163Em 

2.155Em 

2.154Em 

IY=  2 

2.146E'»-02 

2.164Em 

2.163E't'02 

2.154E+02 

2.154E-*’02 

IY=  1 

Z.lSGEm 

2.163E4>02 

z.iezsm 

2.154E+02 

2.153E’i>02 

IZa 

6 

7 

8 

9 

10 

IYa25 

1.990E-l>02 

1.990E4'02 

1.990E4>02 

1 .990E't>02 

1.991E'<>02 

IY=24 

1 .990E+02 

1.990E'<'02 

1.990E+02 

1 .991E-t-02 

1.991E^02 

IYa23 

1 .990E-<‘02 

1.990E+02 

1.990E-<-02 

1 .991E+02 

1.991E-t-02 

IY=22 

1 ,990E+02 

1.990E402 

1.991B+02 

1 .992E-»-02 

1.992E-t-02 

lYa21 

1 .990E-l>02 

1.990Em 

1.991E+02 

1 .993E'^02 

1 .994E+02 

IYa20 

1.990Em 

1.991E4-02 

1.992E+02 

1 .994E+02 

1.996Em 

IY»19 

1 .990E’l-02 

1.991E+02 

1 .993E-t>02 

1 .997E+02 

Z.OOOEm 

IY=18 

1 .991E+02 

1.992Em 

1.996E4>02 

2.002E>02 

2.006E-«>02 

IYa17 

1 .991E+02 

1.994E-»^02 

2.000Em 

2.008Em 

2.014Em 

IYa16 

1.993E+02 

1.997E+02 

2.006Em 

2.019E-l>02 

2.027Em 

lYalS 

1.995Em 

2.002£-^02 

z.oisEm 

2.033E^02 

2.043E-I-02 

lYal4 

1.999Em 

2.010E>02 

2.028Em 

2.051E4>02 

2.064E<»>02 

lYa13 

2.006Em 

2.023E^02 

2.047E4^02 

2.074E4>02 

2.088Em 

1Y=12 

2.017E4-02 

2.041E-»02 

2.070Em 

2.098Em 

Z.lllEm 
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IY=11 

2.035Em 

2.065E+02 

2.096E-i-02 

2.121E+02 

2.131E+02 

IY=10 

a.oeoE+oz 

2.094E+02 

2.121E-t-02 

2.138E-«-02 

2.144E+02 

IY=  9 

2.092E-I-02 

2.122E+02 

2.141E-t-02 

2.150E-I-02 

2.152E+02 

IY=  8 

2.124E-t-02 

2.144E+02 

2.153E+02 

2.155E-i-02 

2.155E+02 

IY=  7 

2.149E+02 

2.155E+02 

2.157E+02 

2.157E+02 

2.156E-i-02 

lY*  6 

2.157E+02 

2.157E+02 

2.157E+02 

2.157E+02 

2.156E+02 

IY=  5 

2.157E+02 

2.158E+02 
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7.885E+01 

7.880B<t-01 

7.875E+01 

7.870B+01 

IY«22 

7.889E+01 

7.885E-I>01 

Y.aaoB-fOl 

7.87SE+01 

7.870E>01 

IY«21 

7.889E>01 

7.885E>01 

7.880B4^01 

7.87SE4>01 

7.870E+01 

IY«20 

7.889E'i^01 

7.885E+01 

v.aaoE-^oi 

7.675E+01 

7.870B+01 

1Y*19 

7.889E-f01 

7.885E+01 

7.880B-^01 

7.87SE+01 

7.870E+01 

IY«ia 

7.8e9B4>01 

7.885E-t-01 

7.880E>01 

7.875E+01 

7.870E+01 

IYS17 

7.889E+01 

7.885EA01 

7.889B-<>01 

7.875E401 

7.a70E-»‘01 

1Y»16 

7.889Et‘01 

7.885E-«>01 

7.ae0E4-01 

7.875E+01 

7.e70E+01 

lYalS 

7.889E‘^01 

7.68SE4>01 

7.880E^01 

7.87SE+01 

7.870E+01 

IYa14 

7.889B‘^01 

7.885E401 

7.880B't-01 

7.87SE+01 

7.870E+01 

IYa13 

7.889E+01 

7.885E4-01 

7.880E401 

7.87SE+01 

7.870E+01 

IY-12 

7.889Et01 

7.885E4^01 

7.880E>01 

7.87SE+01 

7.870E+01 
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lYall 

7.889E+01 

7.885E+01 

7.880E+01 

7.8756+01 

7.870E+01 

lYalO 

7.889E+01 

7.885E+01 

7.880E+01 

7.875E+01 

7.870E+01 

IY=  9 

7.889E+01 

7.88SE+01 

7.880E+91 

7.875E+01 

7.870E+01 

IY=  8 

7.889E+01 

7.885E+01 

7.880E+01 

7.875E+01 

7.871E+01 

IY=  7 

7.889E+01 

7.885E+01 

7.880E+01 

7.87SE+01 

7.886E+01 

IY=  6 

7.889E+01 

7.885E+01 

7.880E+01 

7.879E+01 

8.055E+01 

II 

Ul 

7.889E-i-01 

7.885E+01 

7.880E+01 

7.883E+01 

8.492E+01 

IY=  4 

7.889E+01 

7.885E+01 

7.880E+01 

7.883E+01 

8.691E+01 

IY=  3 

7.889E+01 

7.885E+01 

7.880E+01 

7.882E+01 

8.719E+01 

IY=  2 

7.889E-t-01 

7.885E+01 

7.880E+01 

7.880E+01 

8.S03E+01 

IY=  1 

7.889E-t'0l 

7.885E+01 

7.880E+01 

7.880E+01 

8.402E+01 

IZa 

1 

2 

3 

4 

5 

IY»25 

7.865E-i-01 

7.860E+01 

7.855E+01 

7.845E+01 

7.836E+01 

IY=24 

7.865E-t>01 

7.860E+01 

7.855E+01 

7.845E+01 

7.836E+01 

IY»23 

7.865E+01 

7.860E+01 

7.8S5E+01 

7.845E+01 

7.836E+01 

IY®2.2 

7.865E'f01 

7.860E+01 

7.8S5E+01 

7.845E+01 

7.836E+01 

IYa2l 

7.865E-«-01 

7.860E+01 

7.855E+01 

7.84SS+01 

7.836E+01 

IY=20 

7.e65E-(<01 

7.860E+01 

7.8S5E+01 

7.845E+01 

7.836E+01 

IYa19 

7.865E’»01 

7,860E>01 

7.855E+01 

7.845B+01 

7.836E+01 

IY«ia 

7.86SE’»-01 

7.860E’»>01 

7.8S5B+01 

7.846B+01 

7.836E+01 

1Y*17 

7.865E+91 

7.860E'l>01 

7.8SSE+01 

7.846E+01 

7.836E+01 

lYa16 

7.865E'*-01 

7.860E+01 

7.855E+01 

7.846E+01 

7.837B+01 

1Y»15 

7.865E'f01 

7.860E+01 

7.8S5E+01 

7.846E+01 

7.838B+01 

1Y*14 

7.86SE+91 

7,8606+01 

7.055E+O1 

7.847E+01 

7.042E+O1 

IYS13 

7.865E-»01 

7.860S+01 

7.856B+01 

7.849E+01 

7.851E+01 

IYa12 

7.8tjSE'»01 

7.860B+01 

7.856S+01 

7.855E+01 

7.873E+01 

IY»n 

7.86SB+01 

7,861B+01 

7.859E+01 

7. 8726+01 

7.922E+01 

lYalO 

7.8652+01 

7.862E+01 

7.866E+01 

7  916E+01 

8. 0126+01 

lY*  9 

7 , 866B+01 

7.a67E+01 

7.894E+01 

a.or.E+oi 

8.142E+01 

IY=  8 

7,87SE+01 

7.900E+01 

7.962B+01 

8.16SE+01 

8.269E+01 

lYa  7 

7.944E+01 

8.0686+01 

8.2096+01 

8.3396+01 

8.366E+01 

iy=>  6 

8.3S1E+01 

8.S57E+01 

8.S67E+01 

8.538B+01 

d.SOOE+01 

lY*  5 

e.865E+01 

8.913E+01 

8.8S5E+01 

8.724E+01 

8.618E+01 

IY=  4 

8.969E+01 

8.995E+01 

8.923E+01 

9.391E+01 

1 .S2SE+02 

.Y=  :i 

&.96SE+01 

8.778E+01 

8. 6326+01 

4.550E+0: 

2  0S5E+03 

'.vv*  --^ 


'A*' 


o!:> 
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IY>  2 

1.149E+02 

2.120E+02 

lYa  1 

S.230E+03 

4.126E-<'03 

IZa 

6 

7 

IY*2S 

7.826E+01 

7.816E-^01 

IY=24 

Y.aZGE+OI 

7.ai6E-»>01 

IYa23 

7.826E-<-01 

7.816E+01 

IYa22 

7.826E+01 

7.ai7E+01 

IY»21 

7.826E-i'01 

7.817E+01 

IY=20 

7.826E-i>01 

7.817E+01 

IY»19 

7.826E-<>01 

7,8i8E-«-01 

1Y*18 

7.a27E+01 

7.819E+01 

IY-17 

7.82aE-»-01 

7.822S'f01 

IY»16 

7.830E’»-01 

7.829E+01 

lYalS 

7.835E<t-01 

7.843E<»>01 

IY»14 

7.847E+01 

7.872E+01 

lY-13 

7.873E+01 

7.922E4^01 

lY^tZ 

7.922E+01 

7.996E+01 

IY*n 

a.OOSE't’OI 

a.oaas-t^oi 

IY*10 

8.n4Bt01 

8.178B<t>01 

lY*  9 

8.222E401 

8.250E-«>01 

lY*  a 

8.300E^01 

8.301E401 

lY.  7 

8.362E401 

8.349E>01 

IY«  6 

8.472E>01 

8.429E«01 

XY*  5 

8.798B^01 

9.988E«01 

lY*  4 

3.072E402 

6.276E>02 

XY*  3 

3.9S4E^03 

S.202E>03 

1Y»  2 

1 .268E404 

1.281Em 

XY»  1 

3.82SE403 

3.S72Em 

IZ« 

11 

12 

IY=25 

7.788Et01 

7.786E+01 

XY«24 

7.78eE+01 

7.786E+01 

XYe23 

7.788E4d1 

7.787E^d1 

IY«22 

7.789E+01 

7.788E^01 

lYaZl 

7.790E+01 

7.789E^01 

ly=20 

7.793E^01 

7.793E+01 
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5.527E+02 

6.889E+Q3 

1.156E404 

3.531E+03 

3.667E+Q3 

3.661E403 

8 

9 

10 

7.807E+01 

7.797E+01 

7.792E401 

7.807E+01 

7.797E+01 

7.7933401 

7.807B+01 

7.797E+01 

7,793E401 

7.807E+01 

7.798E+01 

7.793E401 

7.807B+01 

7.799E+01 

7.794E401 

7.808E-«>01 

7.&00E+01 

7.797E401 

7.810E+01 

7.804E+01 

7.802E401 

7.814E-f01 

7.812E+01 

7.813E401 

7.823E<f01 

7.829B<^01 

7.836E401 

7.840B+01 

7.860E<^01 

7.875E401 

7.871E+01 

7.911E+01 

7.937E401 

7.921B+01 

7.9a2E-<‘01 

8.016E401 

7,989E+01 

8.061B-I>01 

8.094E401 

8.067E-t>01 

8.129E<t-01 

8.151E401 

8.141E4^01 

8il76E^01 

8.18SE401 

6.203B+01 

8.213E401 

8.214E401 

8.252E401 

B.248E401 

8.244E401 

a.292B+01 

8.2aiE401 

8.275E401 

8.331E^01 

8.310E>01 

8.298B401 

8.396E^01 

8.370E401 

8.368E401 

1.303B<»>02 

1.8553402 

2.212E40a 

I.IISEm 

1.668E403 

1.947E403 

5.826E^03 

6.103E403 

6.201E403 

1 .296E^04 

1.317E404 

1.328E404 

3.S13E«03 

3.459E403 

3.440E403 

13 

14 

IS 

7,78SE*01 

7.78SE401 

7.800E401 

7,705E+O1 

7.78SE401 

7.001E4^01 

7.786E+01 

7.787E401 

7.830E401 

7.786Et01 

7.789B40t 

7,868E40t 

7.788E+01 

7.793E4(n 

7.908B401 

7.792E*0i 

7.799E401 

7.944E401 

IY=19 

7.800E+01 

7.800E+01 

7.800E+01 

7.808E+01 

7.978E+01 

IY=18 

7.815E+01 

7.816E+01 

7.817E+01 

7.827E+01 

8.018E+01 

IY=17 

7.843E+01 

7.845E+01 

7.848E+01 

7.861E+01 

8.074E+01 

IY-16 

7.892E+01 

7.896E+01 

7.901E+01 

7.918E+01 

8.158E+01 

iy=i5 

7.964E+01 

7.972E+01 

7.980E+01 

8.001E+01 

8.266E+01 

IY=14 

8.051E+01 

8.060E+01 

8.069E-<-01 

8.092E+01 

8.374E+01 

IYa13 

8.125E+01 

8.133E+01 

8.140E-t-01 

8.161E+01 

8.438E+01 

IY»12 

8.169E+01 

8.173E-i-01 

8.177E+01 

8.193E+01 

8.444E+01 

IY=11 

8.191E+01 

8.193E+01 

8.194E+01 

8.206E-I-01 

8.418E+01 

IY=10 

8.213E+01 

8.212E+01 

8.212E+01 

8.221E-<-01 

8.389E+01 

IY=  9 

8.240E+01 

8.239E+01 

8.238E-i-01 

8.243E+01 

8.359E+01 

IY=  8 

8.268E+01 

8.266E+01 

8.264E-t-01 

8.264E-^01 

8.305E+01 

IY=  7 

8.285E-i-01 

8.281E-^01 

8.278E-I-01 

8.274E+01 

8.311E+01 

lY-  6 

8.376E+01 

8.379E+01 

8.380E-i-01 

8.375E+01 

9.621E+01 

lYs  5 

2.651E+02 

2.773E+02 

2.889E-t-02 

2.954E-t-02 

5.342E-I-02 

11 

M 

2.205E+03 

2.272E+03 

2.333E+03 

2.372E+03 

2.743E+03 

IY=  3 

6.260E-f03 

6.775E+03 

6.282E-i-03 

6.173E+03 

6.404E+03 

IY=  2 

1 .336E+04 

1.339E+04 

1 .340E+04 

1 .280E+04 

1 .209E+04 

IY=  1 

S.424E-I-03 

3.432E+03 

3.455E+03 

3.710E+03 

3.812E+03 

IZ= 

16 

17 

18 

19 

20 

IY=2S 

8.118E+01 

8.132E+01 

IY=24 

a.131E+01 

8.267E+01 

• 

IY=23 

8.676E+01 

8.906E+01 

IY=22 

9.366E+01 

9.654E+01 

IY=21 

1.006E+02 

1.036E+02 

IY=20 

1 .066E+02 

1.096E+02 

IYS19 

1 .114E+fl2 

1.145Em 

IY=18 

1.1S6E+02 

1.189E+02 

IYa17 

1 .200E+02 

1 .230E+02 

IY=16 

1.249E+02 

1.266E+02 

IY=15 

1.300E+02 

1.28SE+02 

IY=14 

1.334E+02 

1 .288E-»-02 

IY=13 

1.331E+02 

1 .267B+02 

IY=12 

1.289E+02 

1 .245E+02 

IY=11 

1.222E+02 

1.263B+02 
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IY«10 

1.149E-t-02 

1 .378E+02 

iy=  9 

1 . 070E+02 

1.686E+02 

IY=  8 

9.539E^01 

2.357E+02 

IY=  7 

8.569E+01 

S.751E+02 

IY=  6 

1.112E+02 

6.565E-t-02 

iy»  5 

7.104E+02 

1.220E+03 

- 

lYa  4 

2.898E+03 

1 .423E+03 

IY=  3 

6.069E+03 

1.409E+03 

lY-  2 

1.048E+04 

1.217E+03 

IY=  1 

7.140E+02 

1.112E+03 

IZ= 

21 

22 

:elo  values  of  ep 

IY=25 

8.757E+03 

8.747E+03 

8.736E+03 

8.726E+03 

8.71SE+03 

IYa24 

8.7S7E+03 

8.747E+03 

d.736S+03 

8.728E+03 

8.715E+03 

IY=23 

8.757E+03 

8.747E+03 

8.736E+03 

8.726B+03 

8.715E+03 

1Y=22 

8.757E+03 

8.7472+03 

8.736E+63 

8.726E+03 

8.715E+03 

IY»21 

8.757E+03 

a.747E+03 

8.736B+03 

8.726E+03 

8.715E+03 

IY»20 

8.757E'«-03 

8.747E+03 

8.736E+03 

8.726E+03 

8.715E+03 

IY«19 

8.757E+03 

8.747E+03 

8.736B+03 

8.726E+03 

8.715E+03 

IY*18 

8.757E+03 

a.747E+03 

8.736E+03 

et.726E+03 

8.715E+03 

lYal7 

8,7S7E+03 

8.747E+03 

8.736B+03 

8.726E+03 

8,715E+03 

IY«16 

8.7S7E+03 

8.747B+03 

8.736E+03 

B.7Z6E+03 

8.715E+03 

lYalS 

8.757E+03 

8.747E+(i3 

8.736E+03 

8.726E+03 

8.71SE+03 

1Y«14 

8.7S7E+03 

8.747E+03 

8.736E+03 

8.726E+03 

8.71SE+03 

IY»t3 

8.757E>03 

8.747E+03 

0.736E+03 

8.726E+03 

e.715E+03 

lYa12 

8.757B^03 

8.747E+03 

8.736E+03 

e.726E+03 

8.715E+03 

lYslI 

8.7S7E4-03 

8.747S+03 

8.736B+03 

S.726B+03 

8.715E+03 

1Y«10 

8.757E+03 

8.747B+93 

a.736B+03 

8.726E+03 

8.71SE+03 

lY*  9 

8.7S7E+03 

8.747E+03 

8.736B+03 

8.726E+03 

8.716E+03 

lYa  8 

8.7S7E+03 

8.747E+03 

8.736E+03 

8.726E+03 

S.710E+O3 

iy«  7 

8.7S7E+03 

8.747E+03 

8.736E+03 

8.727E+03 

8.741B+03 

IY«  6 

9»7S7E^03 

8.747E+03 

8.736E+03 

8.733E+03 

9.080E+03 

lYa  S 

8.7S7E+03 

8.747E+03 

8.737E+03 

8.767E+03 

1.133E+04 

lYo  4 

8.757E+03 

8.747E+03 

8.737E+03 

8.797E+03 

1  .S14E+04 

lYa  3 

0.7S7E+O3 

8.747E+03 

8.737E+03 

8.833E+03 

2.691E+04 
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IY=  2 

8.757E+03 

8.747E+03 

8.737E+03 

8.854E-I-03 

IY=  1 

8.757E+03 

8.747E+03 

8.737E+03 

8.858E+03 

IZa 

1 

2 

3 

4 

IYa2S 

8.705E+03 

8.695E-(>03 

8.684E-l'03 

8.664E+03 

IYS24 

8.705E-I-03 

8.695E+03 

8.684E+03 

8.664E-i>03 

IY=23 

8.705E+03 

8.695E-»-03 

8.684E+03 

8.664E-t>03 

IY=22 

8.705E+03 

8.695E-t-03 

8.684E-»-03 

8.664E+03 

IY=21 

8.705E+03 

8.695E-(-03 

8.684E-i‘03 

8.664E-t-03 

IY=20 

8.705E-t-03 

8.695E+03 

8.684E-t'03 

8.664E-i-03 

IYs19 

8.705E-t-03 

8.695E-l‘03 

8.684E<C-03 

8.664E-t-03 

IY=18 

8.705S+03 

8.695E-t-03 

8.684E-I-03 

8.664E+03 

IYS17 

8.705E+03 

3.695E+03 

8.684E-I-03 

8.664E-«-03 

IY=16 

8.705E+03 

8.695E-^03 

8.684E+03 

8.664E-i’03 

1Y*15 

8.705E-t>03 

8.695E-i-03 

8.685E-t-03 

8.665E-I>03 

IY=14 

8.705E't'03 

8.695E-^03 

8.685E+03 

8.666Em 

IY=13 

8.705E-I-03 

d.695E-»‘03 

8.685E-f03 

8.669E-i-03 

IY*12 

8.70SE+03 

8.695E-I-03 

8.686E-t-03 

8.679E<»-03 

lYall 

8.705E't’03 

8.695E-^03 

8.690Em 

8.705E'I>03 

IY=10 

8.706E<(-03 

8.697E-(-03 

8.702E'I>03 

8.774E+03 

lYa  9 

8.707E+03 

8.706E+03 

8.744E+03 

8.926E+03 

lYa  8 

6.720E<»>03 

8.7S6E<^03 

8.884E-t>03 

9.186E’t‘03 

IY»  7 

8. 831 £>03 

9.038Em 

O.ZBOE-^OS 

9.708E4>03 

IY«  6 

9.706E+03 

1.031  Em 

1.075E+04 

1.436B+04 

IYb  5 

1 .429B't>g4 

1.807Em 

2.653Em 

1.475E+05 

IYb  4 

2.431B-»>04 

3.954Em 

1.337E+05 

1 .988E^06 

lYa  3 

9.2S2E-»-04 

1.188Em 

3.878Em 

4.208E4^07 

lYa  2 

2.071B+07 

S.621E+07 

1.269E>»-06 

1.144B>09 

lYa  1 

3.590E4>09 

2.529Em 

2.O14E409 

2.149E4’09 

IZ« 

6 

7 

8 

9 

IY=25 

8.623E<i>03 

8.602E4>03 

6.582E>03 

8.562E4-03 

iy=»24 

d.623E4>03 

8.603Em 

8.582Bm 

8.S62E4>03 

lYa23 

8.623E<i'd3 

0.603Et03 

8.5e2Em 

e.562E^03 

lY-^az 

8.623E4-03 

8.603E403 

8.583E403 

6.563B>03 

1Y«2I 

8.623E-t-03 

8.603Em 

6.583E-»03 

8.S64Em 

IY«20 
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8.240E+02 

8.171E+02 

7.710E+02 

7.619E+02 

7.5832+02 

7.3S8E+02 

7.283E+02 

7.232E+02 

5.828E+02 

5.768E+02 

5.742E+02 

13 

14 

IS 

8.883E+02 

8.883E+02 

8.883E+02 

8.883E+02 

8.883E«-02 

8.883E+02 

8.882E+02 

8,882E+02 

8.8B2E+02 

8.880E+02 

8.880E+02 

8.881S+02 

8.878E+02 

8.878E+02 

8.879E+02 

8.873E+02 

8.874E+02 

8.876E+02 

8.867E+02 

8.867E+02 

8.870E+02 

8.857E+02 

8.8S7E+02 

8.862E+02 

8.842E+02 

8.843E+02 

8.850E+02 

8.821E+02 

8.823E+02 

8.833E+02 

8.795E+02 

8.797E+02 

8.811E+02 

8.763E+02 

8.767E+02 

8.785E+02 

8.732E+02 

8.737E+02 

8.760E+02 

S.705E+02 

8.712E+02 

8.740E+02 

8.686E+02 

8.695E+02 

8.725E+02 

8.675E+02 

8.685E+02 

8.716E+02 
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IY»  9 

8.658E+02 

8.662E*02 

lY*  8 

8.654E+02 

8.659E-i-02 

IY»  7 

8.651E+02 

8.656E+02 

IY=  6 

8.647E+02 

8.651E+02 

IY=  5 

8.574E+02 

8.576E+02 

IY=  4 

8.105E-i-02 

8.094E-I-02 

IY=  3 

7.5S3E+02 

7.553E+02 

IY=  2 

7.226E+02 

7.228E+02 

IY=  1 

5.721E+02 

5.723E-t‘02 

IZ= 

16 

17 

IY=25 

8.884E+02 

IY=24 

8.884E-«-02 

IYS23 

8.885E+02 

IY=22 

8.885E+02 

IY=21 

8.886E-f02 

IY=20 

S.887E-i-02 

IY=19 

8.889Em 

IY=18 

8.892E-t>02 

IYS17 

8.894E-i-02 

IYs16 

8.897E-<>02 

lYalS 

8.896Em 

IY=14 

8.897E-I-02 

IYal3 

8.891Em 

IY*12 

8.883Em 

lYall 

8.875E-»-02 

IY=10 

8.869E-»-02 

IY=  9 

8.863E'l-02 

IY=  8 

8.859E+02 

lYa  7 

8.854Et02 

IY=  6 

8.836E-I-02 

IY=  5 

8.616E+02 

lYa  4 

8.021E-I-02 

IY=  3 

7.437E+02 

IY=  2 

7.020E+02 

lY*;  1 

5.809Em 

8.669E-t-02 

8.680E-<-02 

8.711E+02 

8.666E-i-02 

8.677E+02 

8.706E-<-02 

8.663E-I-02 

8.673E-(-02 

8.699E-I-02 

8.658E-I-02 

8.670E+02 

8.694E+02 

8.582E-I-02 

8.808E-i'02 

8.595E-(-02 

8.093E-I-02 

8.128E-(-02 

8.120E+02 

7.565E-*-02 

7.652E+02 

7.668E-»-02 

7.243E-i'02 

7.376E+02 

7.343E+02 

5.740E4-02 

5.965E-l’02 

5.928E-t-02 

18 

19 

20 
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IZ=  21 

FIELD  VALUES  OF  PI 


IY=25 

1.04aE+05 

1.048E+05 

1.048E+05 

1.048E+05 

1.048E+05 

IY=24 

1-048E+0S 

1.048E-t-05 

1.048E+05 

1.048E+05 

1.048E+05 

IY=23 

1.048E+05 

1.048E+05 

1.048E-i'05 

1.048E+05 

1.048E+05 

IY=22 

1.048E+05 

1.048E+05 

1.048E-I-05 

1.048E+05 

1.048E+05 

IY=21 

1.048E+05 

1 .048E+05 

1.048E>05 

1.048E+05 

l,048E+05 

1Y=20 

1.048E+05 

1.048E+05 

1.048E<i>05 

1.048E+05 

1.048E+05 

1Y=19 

1.048E't-05 

1.048E+05 

1.048E-i>05 

1.048E+05 

1.048E+05 

IY=18 

1.048E-t-05 

1.048E<t>05 

1.048E-t05 

1.048E+05 

1.048E+05 

IY=17 

1.048E-<>05 

1.048E-(-05 

1.048E+05 

1.048E+05 

1.048E+05 

IY=sl6 

1.048E't-0S 

1.048E-<-05 

1.048E-(-05 

1.048E+05 

1.048E+05 

IY=15 

1.048E-t-05 

1.048E+OS 

1.048E+05 

1.048E+05 

1.048E+05 

IY=14 

1.048E-t-05 

1.048E-t-05 

1.048E+05 

1.048E+05 

1.048E+05 

IY=13 

1.048E’i-05 

1.048E+0S 

1.048E+05 

1.048E+05 

1.048E+05 

IY*12 

1.048E-«-05 

1.048E-(‘05 

1.048E-I-05 

1.048E+05 

1.048E+05 

lYsll 

1.048E-»-0S 

1.048E+05 

1.048EH5 

1.048E+05 

'1.048E+0S 

IY=10 

1.048E-^05 

1.048E+05 

1.048E-t-05 

1.048E+05 

1.048E+05 

lYa  9 

1.048E4-05 

1.048E+0S 

1.048E'I>0S 

1.048E+05 

1.048E+05 

lYa  8 

1. 0488-^05 

1.048E+0S 

l.OASE'fOS 

1.048E+05 

1.049E+05 

lYs  7 

1.048E-»-05 

1 .048E’l-05 

1.048E'<-05 

1.048E+05 

1 .051E+05 

IY=  6 

1 .048E+05 

1.048E+05 

1.048E+05 

1.049E+05 

1.056E+0S 

IY=  5 

1.048E+05 

1 .048E+05 

1.048E+05 

1.C49E+05 

1 .063E+05 

IY=  4 

1.048E->-05 

1.048E-<-05 

1.048E-«’08 

1 .049E+05 

1.065E+0S 

lYa  3 

1 .048E-*'05 

1.048E-I-05 

1.048E-«>05 

1.050B+05 

1 .086E+65 

IY=  2 

1.048E+05 

1.048E-^05 

1.0482+05 

1.050E+05 

1.066E+05 

IY=  1 

1 .048E+05 

1.048E4-05 

1.048E+Q5 

1.049E+05 

1.0«6E+05 

IZ= 

1 

2 

3 

4 

5 

IYa25 

1.04SE+05 

1 .048E'»>05 

1.048E+05 

1.048E+05 

1 .048E+05 

IY=24 

1 . 048E-»’0S 

1.048E+05 

1.048E+05 

1 .04SE+05 

1 .048E+05 

IYa23 

1.048E-t-OS 

1.048E+0S 

1 ,048E+05 

1.048E+05 

1.048E+05 

IY=22 

1 .048E-«-05 

1.048E+05 

1,043E+0S 

1 .048E+05 

1.048E+05 

IY»21 

1.048E+05 

1.048E-t'05 

1 .048E+05 

1.048E+05 

1 .048E+0S 

IY=20 

1 .048E+05 

1 .048E-t-0S 

1.048E+05 

1 .048E+05 

1 .048E+05 

IY=19 

1.048E-»-05 

1  ■  048E-I-05 

1.048E+05 

1.048E+05 

1 .048E+05 

184 


IY=18 

1.048E-i'05 

1.048E-i-05 

IY=17 

1.048E+05 

1 .048E-I-OS 

IY=16 

1.04SE-i-05 

1 .048E+05 

IY=1S 

1 .048E+05 

1 .048E-i‘05 

IY=14 

1.048E-t>05 

1.048E+05 

IY=13 

1.048E-I-05 

1 .048E+05 

IY=12 

1.048E-t>05 

1.048E-t-05 

IY=11 

1.048E't-05 

1.049E-i-05 

IY=10 

1.049E+05 

1 .050E+05 

IY=  9 

1.049E-t-05 

1.053E+05 

IY=  8 

1.052E+O5 

1 .062E-t-05 

lYa  7 

1 .062E-«>05 

1.090Em 

IY=  6 

1.096E-t-05 

1.179E+05 

IY=  5 

1.199E+05 

1 .346E-I-05 

IY=  4 

1.267E-<>05 

1.404E-<‘05 

lY*  3 

1.343E+05 

1.438E-t>0S 

lY*  2 

1.403E<t-0S 

1 .449E-t-0S 

IY=  1 

1.429E4-05 

1 .446E+b5 

ZZa 

6 

7 

IYa25 

1,048E4>05 

1.048E-»>05 

IYa24 

1.048E'«‘05 

1.048E-t'05 

IY=23 

1>048E>05 

1.048E+05 

IY=22 

1 .048E^05 

1.049E405 

IY=21 

1.048E+05 

1 .049E-t>05 

IY=20 

1.049E+05 

1  .OSOE^ 

IYS19 

1.049E+05 

1.0S1E+05 

IYal8 

1  .OSOE-t-OS 

1  .053E+05 

IY=17 

1.C51E+05 

1 .0S7E+05 

IY=16 

1.054E+05 

1 .063E+05 

IY=15 

1.059E+05 

1.073E+0S 

IY“14 

1 .067E+05 

1 .090E4-05 

IY=13 

1 .081E+05 

K117E+05 

IY=12 

1 .104E+05 

1 .1S6E4-05 

IY=n 

1.142E+05 

1  .210E+05 

:y=io 

1.198E+05 

1 .276E-»-05 
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1.048E-i-05 

1.048E-t-05 

1.04984-05 

1.048E+05 

1.048E+05 

1.049E+05 

1.048E+05 

1.049E+05 

1.050E-t-05 

1.048E<i-05 

1.049E+05 

1.052E+05 

1.048E-i‘05 

1.050E+05 

1.055E+05 

1.049E+05 

1.052E+05 

1 .061E+05 

1.049E+05 

1.055E-t-05 

1.072E+05 

r.051E+05 

1.063E+05 

1.092E+05 

1.054E+05 

1.078E+05 

1.127E+05 

1.063E+05 

1.109E+05 

1.184E+05 

1.086E<t-05 

1.168E-t-05 

1.267E+05 

1.145E+05 

1 .268E>05 

1 .36284-05 

1.281E+05 

1 .394E+05 

1.427E4-05 

1.413E+05 

1 .421E-f05 

1.425E4-05 

1.437E+05 

1 .425E-f05 

1.424E4-05 

1.445E■^05 

1.425E-<-05 

1.423E4-05 

1.446E+05 

1.424E+05 

1.424E4-05 

1.443Em 

1 .423E'l>05 

1.421E4-0S 

8 

9 

10 

t.049E+05 

1.049E^05 

1.0S0E4-O5 

1.049E+0S 

1.050E4'05 

1.050E40S 

1.049E+05 

1.050E+05 

1.051E4-05 

1.050E+05 

1.052E-I-05 

1.053E4-05 

1.051E+05 

1.054E+0S 

1,056E4-0S 

1.052E-*’05 

1.057E+05 

1.061E4-OS 

1.055E+0S 

1 .063E4-0S 

1.069E4-05 

1.060E+05 

1.072E+05 

1.081E+0S 

1.068E+05 

1.087E^05 

1 .099E4-05 

1.081E+05 

1.108E+05 

1.125E4-05 

1.100E+05 

1 .13aE4-05 

1 .161E+05 

1.129E+05 

1.179E+0S 

1 .208E405 

1.169E+05 

1.229E^0S 

1.262E40S 

l-EEIE-t-OS 

1 .2868^05 

1 .31784-05 

l.ZSZE-i-OS 

1 .340E+05 

1 .364E+05 

1.342E+05 

1.384E+05 

1 .399E+05 

IY=  9 

1.271E+05 

1.344E-<’05 

1 .390E+05 

1 .413E+05 

1.418E+05 

iy=  8 

1.349E+05 

1.398E+05 

1 .420E-l'05 

1 .426E+05 

1 .426E+05 

IY=  7 

1.410E+05 

1.426E+05 

1.430E+05 

1 .429E+05 

1.427E+05 

IY=  6 

1.432E-I'05 

1 .431E+05 

1 .431E+05 

1 .430E-t-05 

1.427E+05 

IY=  5 

1.430E+05 

1.432E-t-05 

1.431E+05 

1 .429E+05 

1 .427E+05 

IY=  4 

1.430E+05 

1.432E+05 

1.431E+05 

1 .429E+05 

1.426E-I-05 

IY=  3 

1 .429E+05 

1.432E-t-05 

1.431E'l-05 

1 .429E+05 

1 .426E-)-05 

IY=  2 

1.430E’t>05 

1.434E+05 

1.434E+05 

1 .432E+0S 

1 .429E+05 

IY«  1 

1.427E+05 

1.430E+05 

1 .430E+05 

1 .427E+05 

1.425E+05 

IZ= 

11 

12 

13 

14 

15 

IY=25 

1 . 050E4-05 

1.050E-»-05 

1.050E+05 

1.050E-t>05 

1.050E+05 

IY=24 

1.051E+05 

1.051E+0S 

1.051E+05 

1 .051E+05 

1.051E+05 

IY=23 

1.052E-<’05 

1.052E>05 

1.052E+05 

1.053E4-05 

1.052E+05 

IY=22 

1.055E-»-05 

1.055E+05 

1.0S5E+05 

1.055E+0S 

1.0SSE+05 

IY=21 

1.059E-t-05 

1.059E+05 

1.059Et05 

1  .oeoE-t-os 

1  .060E4-05 

IY=20 

i.oesE-^os 

1.066E-«-05 

1.066E'»‘05 

1 .067E+05 

1.067E't-0S 

IY=*t9 

1.075E+05 

1.076E+05 

1.077E+0S 

1 .078E+0S 

1 .078E+05 

IYal8 

1.090E>05 

1.092E+05 

1.094E4^05 

1.095E+0S 

1.095E-»^05 

IY=*17 

1.112E+0S 

1.115E+05 

1.118E+05 

1.120E+05 

1 .120B+05 

IYal6 

1.144E>0S 

1.148E+05 

1.151E+05 

1.1S4E+05 

I.ISSEfOS 

lYalS 

1.186E*05 

1.191E+05 

1.195E4^05 

1.198E+05 

1.199E+05 

IY=14 

1.237E+05 

1.243Em 

1 .247B+0S 

1 .250B+0S 

1.249E4-05 

IY=13 

1.291E+05 

1,297E+05 

1.300E4^05 

1.301E+05 

1 .297E+0S 

IY«12 

1.341EfOS 

1,345E+05 

1.346E+05 

1 .345E+05 

1,338Ei>05 

lYall 

1.381Ef05 

1.382E4>05 

1.381E4>05 

1.376E+05 

1.366B-i-05 

IY=10 

1 .4Q6E4^0S 

1.405E+0S 

1.401E'<-05 

1 .394E^05 

1.382e4>05 

1Y=  9 

1.419E+05 

1.415E+05 

1.410E+05 

1.402E-^0S 

1.38BE-t>0S 

lYa  8 

1 .423E+05 

1 .419E+05 

1.412E-t>05 

1 .403E^05 

1.389E+05 

IY=  7 

1.424E<fOS 

1.419E>0S 

1.412E+05 

1 .403E4-05 

1 .389B+05 

lYa  6 

1 .424E>05 

1 .419E+05 

1 .412E+05 

1.402E-»>0S 

1 .384E+0S 

IYb  S 

1 .423E+05 

1.417E+05 

1 .409E-«'0S 

1 .392E-t-05 

1 .343E+0S 

IY“  4 

1 .422E^05 

1.416E+0S 

1.407E+0S 

1 .385E^05 

1  .303E+OS 

IY=  3 

1 .422E'»-05 

1.416E+05 

1.407E+0S 

1.379E+05 

1 .237E+05 

IY«  2 

1 .42SE+05 

1.419E+05 

1,409E+0S 

1.379E+0S 

1 .14SE+05 

IY=  1 

1 .421E+05 

1.415E+05 

1.405Em 

1 .377E4'0S 

1.080E-i-05 
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IZa 

16 

17 

IY=25 

1 .OSOEtOS 

1.049E+05 

IY=24 

I.OSIEtOS 

1.049Et05 

IYa23 

1.052Et05 

1.049Et05 

IYa22 

I.OSSEtOS 

1.049Et05 

IY=21 

1.0S9E+05 

1.049Et05 

1Y=20 

1.065Et05 

1.049E>05 

IYa19 

1.076E-t>05 

1.049E+05 

IY=ia 

1.091Et0S 

1.049E+05 

IYa17 

1.114Et05 

1.049Et05 

IYa16 

1.14SE+05 

1.049E-I-05 

lYalS 

1.185Et05 

1.049Et05 

IYa14 

1.229Et05 

1.049Et05 

IY=13 

1.271Et05 

1.049Et0S 

IYa12 

1 .305Et05 

K049Et05 

lYall 

1.329Et05 

1.049Et05 

1Y«10 

1.342Et05 

1.049Et0S 

lY*  9 

1 .347Et05 

t.049EtOS 

lYa  8 

1 .348EtOS 

1.049E+0S 

XYa  7 

1,347E+05 

1.049fi+05 

lY*  6 

1 .338BtOS 

1.049Et05 

lYa  5 

1 .268Et05 

1.049Et0S 

lY*  4 

1.217E4>05 

1.049Et05 

lYa  3 

I.ISIE+OS 

1.049£t05 

lY*  2 

1.098Et0S 

1 .045Et05 

lYs  1 

1.087Et05 

9.975B+04 

12= 

21 

22 

FIELD  VALUES  OP  PP  (density) 

1Y=2S 

i.assEtoo 

1.83SEt00 

IY=24 

1 .635EtO0 

1.a35Et00 

IY=23 

1.835EtOO 

1.83SEt00 

IY»22 

1.835EtO0 

1.835EtOO 

IY=21 

i.essEtoo 

1.835Et00 

IY=20 

1 .835EtOO 

1.835Et00 

IY=19 

1.836EtO0 

1.835£t00 
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18  19  20 


1 .assEtoo 

1 .assEtoo 

U835EtOO 

1.835EtOO 

1.835Et00 

1.835£4>00 

1.635EtO0 

1 .835Et00 

1.835EtOO 

1.835EtOO 

1.83SEtOO 

1 .83SEtOO 

1.835EtOO 

1  .assEtoo 

1 .835Et00 

1.33SEt00 

1 .835EtOO 

1 .835Et00 

l.aSSE-fOO 

1  .assEtoo 

1  .aasE-t-oo 

iY=ia 

1.835E-I-00 

1.835E+00 

IY=17 

1.835E-I-00 

1.835E+00 

IY=16 

1.835E-t>00 

1.835E+00 

IY=1S 

1 .835E+00 

1.835E+00 

IY=14 

1.835E-»-00 

i.aasE-t-oo 

IY=13 

l.aaSE-i'OO 

1.835E4-00 

IY=12 

1.835E-»-00 

1.835E4>00 

lYsn 

1.835E+00 

1.835E4^00 

IY=10 

1.835E‘t'00 

1.835E-»-00 

lYs  9 

KaasE-^oo 

1.835E+00 

IY=  8 

1.83EE>00 

1 .835E-t-00 

IY=  7 

l.SSSE+OO 

1.835Em 

IY=  6 

1.835E+00 

1.835E^OO 

lYa  5 

1.835E+00 

i.sasE-t^oo 

1Y»  4 

KSSSE-t-OO 

1.835E4^00 

IY«  3 

1.83SE^00 

1.835E«00 

IY»  2 

1.83SE-i^00 

1.B35EtOO 

1Y«  \ 

1.635E4>00 

1.835E>00 

XZ3 

1 

2 

IY«2S 

1.B35E4>00 

1.635E4>00 

IY-24 

1.B3SE4>00 

1.83SE^OO 

IY=23 

1.83SB^00 

1.835E4^00 

IYa22 

1.835E+00 

1.835E^00 

IY»21 

1 .835£^00 

1.835E400 

1Y»20 

1.83SE+00 

1.a35E4>00 

IY=19 

1 .83SE4>00 

1.835E+00 

1Y=18 

1.83SE+00 

1.B3SE^00 

IY=17 

1.83SE+00 

1 .835E+00 

IY=16 

1 .835E^OO 

1.83SE+00 

IY=15 

1 .835E+00 

1 .03SE4^00 

IY=14 

1 .essE^oo 

1.635E>00 

IYn13 

1.83SE^00 

1,83SE>00 

IYa12 

1 .835E4>00 

1 .a36E>00 

lY^n 

1.83dE4>00 

1.836E+00 

IY=10 

1 .836E4>00 

1.837E+00 
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1.835E-<-00 

1 .835E+00 

1 ,835E-t-00 

1.835E-e-00 

1  .a35E-t>00 

i.sasE-t-oo 

1.835E+00 

1 .835E+00 

1.835E+00 

1.835E+00 

1.835E+00 

1 .835E-I-00 

1.835E+00 

1  .a35E+00 

1.835E-t-00 

1.835E-t>00 

1.835E-i’00 

1 .835E<(-00 

i.assE-t-oo 

1.83SE-t-00 

1 .835E-t-00 

1.835E+00 

1 .835E-»-00 

I.BaSE-t-OO 

I.SSSE+OO 

1 .835E-»'00 

1.835E-»^00 

1.835E<»^00 

1.835E+00 

1.836E-t>00 

1  .a35E-»>00 

1.836E-t-00 

1  .aseE-t-oo 

I.SSSE-t^OQ 

1.836E-i>0a 

1.839E-»‘00 

1.83SE4-00 

1.836E'^00 

1.845B’t>00 

1.836E+00 

1.837E-t‘00 

1  .a54B>^00 

1.836E400 

1.837E>00 

1 .857E+00 

1.836E’l>00 

1 .837E^00 

1  .aSSE't-OO 

1.836E4>00 

1.837E<t>00 

1 .8S9B^00 

1.836E't>00 

1.837E<*^00 

1  .d59E-»00 

3 

4 

5 

1.835E400 

1  .e3SE^00 

1 .essE^oo 

1.835E4^00 

1.a35E<)>00 

I.BSSE^ 

l.dSSE^OO 

K835E^OO 

1.835E>00 

1.835£*00 

1.835E^00 

I.SSSEtOO 

1.835Et00 

1.83SE4>00 

1 .83SE-^00 

i.assE-i-oo 

1.835E>00 

1 .836E-«>00 

1.835E^00 

1.835E+00 

1 .836£^00 

1.835E4>00 

1 .836E^00 

1 .836E490 

1.835E400 

1 .836E>00 

1.637E+00 

1  .SSSE-i-OO 

1.836E4>00 

1 .63dE-fOO 

1.e36E'^00 

1 .836E4>00 

1 .840E4^00 

1.836E^00 

1 .838E^00 

1 .844E^00 

1.836E^OO 

1 .840E>00 

1 .852E^00 

1.837E^00 

1.844E<»>00 

1.866Em 

1.839E+00 

1 .854E+00 

1 .891E4^00 

1.843E4^00 

1  .a74E+00 

1.936E+00 

IY=  9 

1.837E4-00 

1.841E+00 

1.854E-i-00 

1.914E+00 

2.009E-f-00 

IY=  8 

1.841E+00 

1.853E+00 

1.884E-I-00 

1.9a9E-i-00 

2.112E-i-00 

r*  =  7 

1.853E-t-00 

1 .890E+00 

1.959E+00 

2.113E+00 

2.229E+00 

IY=  6 

1.897E+00 

2.002E+00 

2.130E-f00 

2.267E<t'00 

2.307E+00 

IY=  5 

2.028E+00 

2.209E+00 

2.390E-<-00 

2.300E+00 

2.30SE+00 

IY»  4 

2.112E-t-00 

2.279E-{-00 

2.319E-»-00 

2.304E+00 

2.303E-i-00 

lYs  3 

2.205E+00 

2.320E+00 

2.32SE+00 

2.304E<«-00 

2.302E-»>00 

IY=  2 

2.277E+00 

2.333EH-00 

2.329E+00 

2.303E+00 

2.303E*l>00 

IY=  1 

2.309E-»>00 

2.329E4-00 

2.325E^00 

2.301E-^00 

2.300E-t-00 

IZa 

6 

7 

a 

9 

10 

IYs25 

1.835E+00 

1.836E-»>00 

1  >836E<t-00 

1 .837E<i>00 

1 .838E+0Q 

IYa24 

1.83SE+00 

1 .836E<t>00 

KsaeB-^oo 

1.a37E'i‘00 

l.aSSE't-OO 

IYa23 

1 .836E^00 

1.836E'»'00 

1 .837E<»>00 

1.838E^00 

i-esoE-foo 

IY=22 

1.836E-^00 

t.838E<t‘00 

1.837E+00 

l.a40E^00 

1 .842E^00 

IY=21 

1.83&E'i>00 

1.837E+00 

1.839B'»^00 

1  .a43E'»^00 

1 .846E^00 

IYa20 

l,636E't^00 

1.838E't>Q0 

1.841E4>00 

1 .847E+00 

1.852E'»>00 

IY»*19 

1.837E'»>00 

1.839E4^00 

1.845E'»^00 

i.assE^oo 

1 .8&2E'^00 

XYaia 

KESSB’t'OO 

1.842£'(^00 

1.851E<^00 

1.867E+00 

1,877E+00 

IYal7 

l,840B^0O 

t.847E4>00 

1.861E4>00 

1.88SE’»>00 

1.901  Em 

IYa16 

1 .843E4>00 

1.8SSB^00 

1.877E+00 

1.912E^09 

1.934E+00 

XY»1S 

1.849E'»00 

1.36eE4-00 

1.903B4>00 

1.951E>00 

1 .98CB^00 

IYal4 

t.859E+00 

1.89QE4^80 

t  .93984^00 

2.002Em 

2.039Em 

lYal3 

1.878E+00 

1.924E4>00 

1.990B400 

2.06SEm 

2.106E>C0 

IY«12 

1 .908E<^00 

1.974E^00 

2.055B>00 

2.135Em 

2.1?3Em 

lYall 

1 .9S6E>00 

2.041E^00 

2.130E^00 

2.202E^0O 

2.231Em 

XYalO 

2.026E+00 

2.1?3E+(/0 

2.204B«00 

2.2S5E>00 

2.273£^00 

1Y=  9 

2.n7E+00 

2.206E4^00 

2.Z62EiOO 

2.290E«00 

2.296C«00 

IY=  8 

2.213E^00 

2.272E-^00 

2.298E4^00 

2.306E4^09 

2,30SEm 

IY=  7 

2.286E>00 

2.306E4^00 

2.310E«00 

2.310E>00 

2.307E+00 

IY=  6 

2.312E+00 

2.312E4^00 

2.312E^OO 

2>310E^00 

2.307E^00 

1Y=  S 

2.310E^0O 

2.313E>00 

2.312E+00 

2.310E^00 

2.306Em 

lYa  4 

2.310E4-00 

2.31';E+00 

2.312E^00 

2.309E4^00 

2.306Em 

1Y=  3 

2.309E4>00 

2.312E>00 

2.3nE+00 

2.309E-^00 

2.306E^00 

IY=  2 

2.3nE400 

2.315E*00 

2.315E^00 

2.312E+00 

2.309E+00 

lYa  1 

2.307E^OO 

2.310E^00 

2.310Em 

2.307E^00 

2.304E«00 
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IZ* 

11 

12 

IY=2S 

1 .838E-t-00 

1.838E+00 

IY=24 

1 .839E-5-00 

1.839E+00 

IY=23 

1.841E-t-00 

1.841E+00 

IY=22 

1 .844E+00 

1.a44E-(>00 

IY=21 

1.849E+00 

1.849Em 

IY=20 

1.857E+00 

1.858Em 

IY=19 

1.870E+00 

1.871E+00 

IY*18 

1 .a89B+00 

1.892E-^00 

lYsl? 

1.918E+00 

1.922E-»-00 

IYa16 

1.958E'»>00 

1.963E+00 

lYalS 

2.011E-»-00 

2.017Em 

IY=>14 

2.075E+00 

2.082Em 

IY=13 

2.142E-t-00 

2.149Em 

1YS12 

2.203E't‘00 

2.20dE'»>00 

1Y«11 

2.251E>00 

2.2S2E+00 

lYalO 

2.282£'t>00 

2.280Em 

lY®  9 

2.297E^00 

2.293Em 

lYa  3 

2.302E^0O 

2.297B+00 

XV«  7 

2.303E400 

2.297E400 

IY«  6 

2.303em 

2.297E400 

IYb  S 

Z.SOZE^^OO 

2.295Em 

1Y«  4 

2.301E<»>00 

2.294Em 

XY**  3 

2.301E«00 

2.294Em 

lY*  2 

2.304E4>Q0 

2.297Bm 

XY»  1 

2.299E400 

2.292£m 

11 

16 

17 

lYsZS 

1.838E>00 

1.837E+00 

IY«24 

1 .839E^OO 

1 .e37E*00 

IY=23 

1 .841  Em 

1 .aSTE^OO 

IYa22 

1  .a44E4^00 

1.837E+00 

IYa2l 

1  .849E4^00 

1.837E+00 

1Y=20 

1 .SSSE^OO 

1-037E+OO 

IY=19 

1 .071  Em 

1.837Em 

IY=18 

1 .891  Em 

1 .837E^00 
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13 

14 

15 

1.838E-i-00 

1.838E+00 

1 .838E+00 

1.839Em 

1 .839E+00 

1.839E+00 

1.841Em 

1.841E+00 

1 .841E+00 

1.844E-t-00 

1 .344E+00 

1.844E+00 

i.asoE-t-oo 

1.850E+00 

1.850E+00 

1.8598+00 

1 .859E+00 

1.860E+00 

1 .873E+00 

1.874E+00 

1.874E+00 

1.894E+00 

1 .895E+00 

1.896E+00 

1.925E+00 

1.927E+00 

1.928E+00 

1 .96&E+0Q 

1 .9718+00 

1.972E+00 

2.023E+0Q 

2.027E+00 

2.027E+00 

2,088E+00 

2.091B+00 

2.090E+00 

2.153E+00 

2.154E+00 

2.150E+00 

2.209S+00 

2.2Q8E+00 

2.199E+00 

2.251E+00 

2.246E+00 

2.233E+Q0 

2.275E+00 

2.268E+00 

2.252E+00 

2.2a6E+00 

2.276B+00 

2.259E+90 

2.289E+00 

2.2788+00 

2.261B+00 

2.2898+00 

2.2788+00 

2.261E+00 

2.28eE+00 

2,277E+00 

2.255E+00 

2.285e+00 

2.26SB+00 

2.205E+00 

2.283E+00 

2.256E+00 

2.156E+00 

2.282E+00 

2.2498+00 

2.074E+00 

2.286E+Q0 

2.250E+00 

1.959E+00 

2.2eiE+90 

2.247E+00 

1 .876E+60 

18 

19 

20 

iy=i7 

1 .920E+00 

t.837E+00 

IY=16 

1.960E-«'00 

1.837E+00 

lYalS 

2.009E+00 

1 .837E+00 

IY=1A 

2.065E-(>00 

1.837S+00 

IY=13 

2.117E+00 

1 .837E+00 

IY=12 

2.159E+00 

t .837E+00 

lYall 

2.188E-«>00 

1 .837E+00 

lYalO 

2,204£+00 

1.8S7S+O0 

IY«  9 

Z-EIOE-J-OO 

1 .837S+00 

lYs  a 

a.giiB+os 

lYa  f 

1.837E+00 

a,199B'>G0 

1 ,33?I+60 

S 

Zk  11415  S'iiC 

t.830E+00 

XT-  4 

S.SSSEm 

1.83SE+00 

1.9885+00 

1 .836E+99 

lY-  a 

1.095S+00 

1 .a32E+00 

IY«  1 

i.aasE+oo 

1 .7695+00 

xz» 

21 

22 

MMMMNXXMMIIMlINKKXItMMMmtllMXKitlUIMMIIliilKMKMIliiMMSXXXMMSlIKMNMKilMKKNM 

t}S£Ri>  nm  or  niE  contaxhing'  fxkal  pxa&s  is  mi 

LAST  SWEEP  a  too 
LAST  STEP  *  1 
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I 

PROGRAM  CALCULATES  THE  DISTRIBUTION  QUANTITIES  FOR  TURBULENT 

FLOW 

C  THIS  PROGRAM  CF>ST>Q,H  OVER  THE  VANE  FOR 

C  TURBULENT  FLOW 

REAL3(8  Y1<20)>Y2(20),K(20).W(20),ST(20),Q(20)>CF(20)>RA(20) 
REAL3(8  BZFRAC<2G),EHU.GPGP»PR,HW,ZC0R(20),KCON(20),RO(20) 
REALX8  RE2(20),CFT(20},Z(20},TAW(20),YO(20},D1(20),D2(20) 
REALyi  P(20),V<20),ARG{20),KE(20) 

INTEGER  12 

GH=6.4E-03 

QD=10)tOH 

GL=9S.2E-03 

G1LS1.24XGL 

GBETAaA . 

GBETAaGBETAMS . 1 41 5927/1 80 

GTAB«TAN(OBETV 

DELMAX»2.£-03 

ONBL'sS. 

GPWRaa. 

EMU^l.E-05 
R0E=i  1.835 
PE«1 .04eE+OS 
WE»888.5 

RUUaO.SMROEKWEMXa 
GAMA»1 .33 
RW!“287  . 

CP»GAMA»ftW/(GAMA-l . ) 

HWa323 .  JtCP 
JI0s5S5.5*CP 
PR=0.9 
GPCP=EMU/PR 
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DO  10  IZ>1,6 

Y1 ( IZ ) = ( 1 . /5 . ) mkGPWRKDELMAX 
Y2 ( IZ ) » ( 2 . /5 . ) KXGPNRXOELMAX 
10  CONTINUE 

BZFRAC(1)a42.373E''3 
DO  66  IZ=2,8 

66  BZFRAC(IZ)M2.373E-3+BZFRAC(IZ-1) 

DO  67  IZ=9,14 

67  BZFRAC( IZ)a84 . 75E-3+BZFRAC(IZ-1 ) 

DO  68  IZ=15>16 

68  BZFRAC(IZ)»42.73E-3<i-BZFRAC(IZ>1) 

DO  69  12*17,20 

69  BZFRAC(I2)-!'1  1 .295E-3+BZFRAC(12"1) 

DO  20  IZ*6,20 

Y1  <IZ)*Y1 (1 )K(G0-(BZFRAC(I2)-BZFRAC(5) )»6TAB«GTL)/GD 

Y2(XZ)«Y2(  1  )»(GO>(BZFRAC(IZ)-BZmC(S}  )XGTA&K6TL)/GD 

Z ( XZ ) * ( BZFRAG ( XZ ) >BZFRAC ( 5 ) IXGTL 

!l£A0(5,12)  H(IZ),W(XZ),RO(XZ},KE(IZ) 

CF(XZ)«<2,/<WExx2))X(R0(IZ)/R0E)M(K£a2)/3.33) 

REZ(IZ)>RO(IZ)MWEl(Z(XZ)/EHU 

ARG(XZ}*0.06KREZ(I^) 

C  CPTaZ)'*(0.4S5/(DLOG<ARGtXZ)})MM2)X0.4 

CFTC XZ ) * ( 0 . 455/ ( OLOG( ARG( XZ ) ) } MM2 ) KO . 77 
STdZI^CCFCXZI/Z.lMCPRIMMC-^Z./S.) 

HCON ( XZ ) *ST ( XZ ) MROEMWEMCP 
QaZ)«(K(XZ)/CP)M(0.926MH0>HW) 

C  WRXTE(6,18}  CF(IZ),ST(XZ},QCXZ),H(IZ),Z(IZ) 

C  WRXTE(8,19}  Z(XZ),CFaZ) 

C  WRIT£(8.27)  Z(IZ),ST(IZ) 

C  WRITE(8,2n  ZaZ),Q(IZ) 

C  WRITC(8,22)  Z(XZ).H(XZ) 

WRXTE(8,24)  Z(IZ) ,CFT(I2) 

C  WRIYEC8,28)  REZ(IZ) ,CFT(XZ} 

20  CONTINUE 

12  FOR11AT(3X,C10.3,3X,E10.3,3X.E10.3,3X,E10.3) 
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C  18  FORMAT(3X,E10.3,3X,E10.3>3X>E10.3»3X»E10.3,3X>E10.3) 
C  19  F0RHAT(3X>E10.3>3X«E10.3) 

C  27  FORHAT(3X,E10.3,3X,E10.3) 

C  21  FORMAT(3X,E10.3,3X,E10.3) 

C  22  F0RMAT(3X,E10.3,3X,E10.3) 

24  FORMAT(3X«E10.3,3X,E10.3) 

C  28  F0RHAT(3X,E12.5,3X»E12.5) 

STOP 

END 
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APPENDIX  i 

INPUT  FILE  FOR  PRORAM  CALCULATING  TURBULENT  FLOW  QUANTITIES 


H(IZ) 

W(IZ) 

RO(IZ) 

KE(IZ) 

5.690E-I-05 

7.369E+02 

2.309 

5.230E-l’03 

5.372E+05 

6.452E+02 

2.329 

4.126E-»^03 

5.194E+05 

5.906E-t-02 

2.325 

3.531E-i'03 

5.258E-t>0S 

6.019E-f02 

2.301 

3.667E+03 

5.262E^05 

6.004Em 

2.300 

3.661E4>03 

5.252E-»^05 

5.964Em 

2.307 

3.625E^03 

5.233E+05 

5.907E+02 

2.310 

3.572E<^03 

5.211E+05 

5.842E+02 

2.310 

3.513E’»^03 

5.199E+05 

5.782E-»>02 

2.307 

3.459E-(-03 

5.180E+05 

5.756E+02 

2.304 

3.440E'»03 

5.170E+0S 

S.73SE+02 

2.299 

3.424Ei03 

5.168E^05 

5.737B+02 

2.292 

3.432E>^03 

S.16SE’^05 

S.754E+02 

2.281 

3.45SB4>03 

5.172E+0S 

5.976E+02 

2.247 

3.710B+03 

5.163Ef05 

5.928Em 

1,876 

3.812E^03 
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APPENDIX  K 
NOMENCLATURE 


Constants  used  in  turbulent  model 
9r  Skin  friction  coefficient 

H  Heat  transfer  coefficient 

M  Mach  nxitnber 

P  Pressure 

Pr  Prandtl  ntimber 

Q  Heat  flux 

Re  Reynolds  number 

St  Stanton  number 

T  Temperature 

GREEK  LETTER  SYMBOLS 

6  Boundary  layer  thickness 

M  Dynamic  viscosity 

p  Density 

Constanta  used  in  turbulent  model 
0  Any  property  at  the  grid  node  ’ 

^  Kinematic  viscosity 

SUBSCRIPTS 

comp  Compressible  value 

inc  Incompressible  value 

eff  Effective  value 

T  Turbulent  quantity 

lam  Laminar  quantity 

2  Local  value  in  the  flow  direction 

CO  Free  stream  value 
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